Add Exercise 2.23

2022-11-08 17:19:24 +01:00 · 2022-11-08 17:19:24 +01:00 · 2e5b4cee2d
commit 2e5b4cee2d
parent d7215f85ca
1 changed files with 4 additions and 0 deletions
--- a/chapter2.lisp
+++ b/chapter2.lisp
@ -141,3 +141,7 @@ and upper bound."

 (defun square-list-mapcar (items)
  (mapcar #'(lambda (x) (* x x)) items))
+
+;; Exercise 2.23
+(defun for-each (func thing)
+  (mapcar func thing))