home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
mutt
/
min.mut
< prev
next >
Wrap
Lisp/Scheme
|
1988-09-23
|
232b
|
11 lines
;; min.mut : find the the minimum of a list of numbers
;; eg (min 1 2 3 4 5) returns 1
(defun min HIDDEN
{
(INT n)(int i)
(n (arg (i (- (nargs) 1))))
(while (>= (-= i 1) 0) (if (< (arg i) n) (n (arg i))) )
n
})