commit 74348425691552bdd2e3d9e84d5a7c96d4be76e5
author swissChili <swisschili@fastmail.com> Sun Jul 04 13:23:24 2021 -0700
committer swissChili <swisschili@fastmail.com> Sun Jul 04 13:23:24 2021 -0700
tree ca0d56590e2d940273dbc2d6324cab6836cc9407
parent ddc975483eae62ad9e3393a4ac27954c5ed9043f

Add recursive calls, (function), #'

src/lisp/test-closures.lisp

diff --git a/src/lisp/test-closures.lisp b/src/lisp/test-closures.lisp
index 1311a98..573024d 100644
--- a/src/lisp/test-closures.lisp
+++ b/src/lisp/test-closures.lisp
@@ -1,5 +1,12 @@
+(defun mapcar (func list)
+  (if list
+    (cons (apply func (list (car list)))
+          (mapcar func (cdr list)))
+    nil))
+
+(defun double (n)
+  (+ n n))
+
 (defun main ()
-  (let1 (number 3)
-    (let1 (adds-3 (lambda (n)
-                    (+ n number)))
-      (print (apply adds-3 '(4))))))
+  (print (mapcar #'double
+                 (list 1 2 3 4 5))))