From Newsgroup: comp.lang.lisp

LOOP is clever enough to do this in a simpler way:

CL-USER> (defun foo (num)
(* num 10))
FOO
CL-USER> (loop for k below 10
collect (foo k))
(0 10 20 30 40 50 60 70 80 90)
CL-USER>

Gauche Scheme

(define foo (cut * 10 <>))
(map foo (iota 10))
===>
(0 10 20 30 40 50 60 70 80 90)
--- Synchronet 3.21d-Linux NewsLink 1.2