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