My quick suggestion is:
> (let ((l1 '(300 4 5995 6 90))
(l2 '(33 2 90 8))
(l3 '(9 782 9)))
(loop for l in `(,l1 ,l2 ,l3);;list of lists;;
with result = '()
do
(set! result (append result
(list (loop for nl in l
with i = most-negative-fixnum
do
(when (> nl i)
(set! i nl))
finally (return i)))))
finally (return result)))
> (5995 90 782)
_______________________________________________ Cmdist mailing list [email protected] http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
