home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / max.mut < prev    next >
Lisp/Scheme  |  1995-01-14  |  250b  |  13 lines
  1.   ;; max.mut : find the the maximum of a list of numbers
  2.   ;; eg (max 1 2 3 4 5) returns 5
  3.   ;; C Durland    Public Domain
  4.  
  5. (defun max HIDDEN
  6. {
  7.   (int n i)
  8.  
  9.   (i (- (nargs) 1))(n (arg i))
  10.   (while (>= (-= i 1) 0) (if (< n (arg i)) (n (arg i))) )
  11.   n
  12. })
  13.