9 lines
164 B
Text
9 lines
164 B
Text
|
(defun apply-to-each (xs)
|
||
|
|
(if (endp xs)
|
||
|
|
nil
|
||
|
|
(cons (fn-to-apply (first xs))
|
||
|
|
(sq-each (rest xs)))))
|
||
|
|
|
||
|
|
(defun fn-to-apply (x)
|
||
|
|
(* x x))
|