every   xtlang


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

Implementation

(bind-func every:[bool,[bool,!a]*,List{!a}*]*
  (lambda (pred lst)
    (let ((f (lambda (l)
               (if (null? l)
                   #t
                   (if (not (pred (car l)))
                       #f
                       (f (cdr l)))))))
      (f lst))))


Back to Index

Similar Entries