6 lines
166 B
Common Lisp
6 lines
166 B
Common Lisp
(require 'cl)
|
|
(mapcar 'funcall
|
|
(mapcar (lambda (x)
|
|
(lexical-let ((x x))
|
|
(lambda () (* x x)))) [1 2 3 4 5 6 7 8 9 10]))
|
|
;; => (1 4 9 16 25 36 49 64 81 100)
|