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

Add Exercise 2.25

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-08 19:00:41 +01:00
parent 2e5b4cee2d
commit ccd381fb9a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
chapter2.lisp
View File

@ -145,3 +145,13 @@ and upper bound."
;; Exercise 2.23
(defun for-each (func thing)
(mapcar func thing))
;; Exercise 2.25
(defvar list-1 (list 1 3 (list 5 7) 9))
(defun pick-7-list-1 () (car (cdr (car (cddr list-1)))))
(defvar list-2 (list (list 7)))
(defun pick-7-list-2 () (car (car list-2)))
(defvar list-3 (list 1 (list 2 (list 3 (list 4 (list 5 (list 6 7)))))))
(defun pick-7-list-3 () (cadr (cadr (cadr (cadr (cadr (cadr list-3)))))))