max

Conformance: R5RS Scheme

Purpose: Find the maximum of a sequence of numbers.

Arguments:
A - number
B... - numbers

Implementation:

(define (max a . b)
  (fold-left (lambda (a b)
               (if (> a b) a b))
             a b))

Example:

(max -25 5 25 0 -5) 
=> 25

See also:
digits, min, >.