[CM] Newbie question - and about them

[Aykut Caglayan]

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)


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ccrma-mail.stanford.edu/pipermail/cmdist/attachments/20100508/0992bccb/attachment.html