cl:every   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define (cl:every pred lst . rest)
  (cond ((null? rest)
   (let mapf ((lst lst))
     (or (null? lst)
         (and (pred (car lst)) (mapf (cdr lst))))))
  (else (let mapf ((lst lst) (rest rest))
    (or (null? lst)
        (and (apply pred (car lst) (map car rest))
       (mapf (cdr lst) (map cdr rest))))))))
;@


Back to Index

Similar Entries

  • cl:notevery    scheme
  • every    xtlang
  • every    xtlang
  • regex:replace-everything    scheme