10 lines
236 B
Text
10 lines
236 B
Text
(= map (fn (f lst)
|
|
(let res (cons nil nil))
|
|
(let tail res)
|
|
(while lst
|
|
(setcdr tail (cons (f (car lst)) nil))
|
|
(= lst (cdr lst))
|
|
(= tail (cdr tail)))
|
|
(cdr res)))
|
|
|
|
(print (map (fn (x) (* x x)) '(1 2 3 4 5 6 7 8 9 10)))
|