From Newsgroup: comp.lang.lisp
B. Pym wrote:
Bill Atkins wrote:
The cool thing about ITERATE is that it lets you express looping
concepts in a language designed explicitly for such a purpose, e.g.
(iter (for x in '(1 3 3))
(summing x)) => 7
Scheme
(fold + 0 '(1 3 5 7 9))
===>
25
(iter (for x in '(1 -3 2))
(finding x maximizing (abs x))) => -3
Gauche Scheme
(use gauche.collection :only (find-max))
(find-max '(1 -3 2) :key abs)
-3
--- Synchronet 3.21d-Linux NewsLink 1.2