get-matching-length   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/pattern.xtm

Implementation

(define get-matching-length
  (lambda (expr var)
    (let* ((checklist (map (lambda (x) 
                          (match-check-variable-predicates x var))
                      expr)))
      (length (get-true-matches checklist)))))


Back to Index