Re: the "loop" macro

B. Pym wrote:

M. Pitman wrote:
 

 (loop with best-foo = nil   ;untested
       for foo in (list foo1 foo2)
       when (or (not best-foo)
                (> (weight foo) (weight best-foo)))
         do (setq best-foo foo)
       finally (return best-foo))

 
Gauche Scheme:
 
(use gauche.collection :only (find-max))
 
(find-max '((a 2) (b 8) (c 5)) :key last)
 ===>
(b 8)

(use gauche.sequence)  ;; size-of

(reduce
  (lambda(word best)
    (if (> (size-of word) (size-of best)) word best))
  #f  ;; Returned if list is empty.
  '("a" "jut" "by" "cling" "saw"))

  ===>
"cling"