zenon/sicp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Exercise 2.21

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-08 17:15:13 +01:00
parent aef78e5af1
commit d7215f85ca
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
chapter2.lisp
View File

@ -129,3 +129,15 @@ and upper bound."
(if (null l) (if (null l)
() ()
(append (reverse-user (cdr l)) (list (car l))))) (append (reverse-user (cdr l)) (list (car l)))))
;; Exercise 2.21
(defun square-list (items)
(if (null items)
nil
(cons (* (car items) (car items)) (square-list (cdr items)))))
(defun square-list-map (items)
(map 'list #'(lambda (x) (* x x)) items))
(defun square-list-mapcar (items)
(mapcar #'(lambda (x) (* x x)) items))