cl:reduce   scheme


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

Implementation

(define (cl:reduce pred? lst)
  (cond ((null? lst) lst)
  ((null? (cdr lst)) (car lst))
  (else (cl:reduce-init pred? (car lst) (cdr lst)))))
;@


Back to Index

Similar Entries