cl:some   scheme


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

Implementation

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


Back to Index

Similar Entries