positional-list-match.scm

;; (positional-list-match '("11") '("12"))
;; => #f
;; (positional-list-match '("11") '("11" "12"))
;; => #t
;; (positional-list-match '(any "12") '("11" "12"))
;; => #t
;; (positional-list-match '(any any any any any) '(5 4 3 2))
;; => #f
;; (positional-list-match 'any '(5 4 3 2))
;; => #t
;; (positional-list-match 'any #f)
;; => #t
;; (positional-list-match 'any '())
;; => #t
;; (positional-list-match `(,(lambda (d) (> (string->number d) 0)) "12") '("11" "12"))
;; => #t

(define (positional-list-match f d)
  (if (and (list? f)
           (list? d))
      (let A ((frl f) (drl d) (r #t))
        (if r
            (if (null? frl)
                #t
                (if (null? drl)
                    #f
                    (A (cdr frl) (cdr drl)
                       (positional-list-match (car frl) (car drl)))))
            #f))
      (cond
       ((eq? f 'any) #t)
       ((procedure? f) (f d))
       (else
        (equal? f d)))))