max   scheme


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

Implementation

(define (max . lst)
  (foldr (lambda (a b) (if (> a b) a b)) (car lst) (cdr lst)))


Back to Index

Similar Entries