RosettaCodeData/Task/Runtime-evaluation/Common-Lisp/runtime-evaluation-3.lisp
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
90 B
Common Lisp

(defun add-four-by-function (a-number)
(funcall (eval '(lambda (n) (+ 4 n)))) a-number)