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

Add Exercise 2.27

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-08 21:56:33 +01:00
parent ccd381fb9a
commit edf806a655
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
chapter2.lisp
View File

@ -155,3 +155,9 @@ and upper bound."
(defvar list-3 (list 1 (list 2 (list 3 (list 4 (list 5 (list 6 7))))))) (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))))))) (defun pick-7-list-3 () (cadr (cadr (cadr (cadr (cadr (cadr list-3)))))))
;; Exercise 2.27
(defun deep-reverse (l)
(if (null l)
()
(append (deep-reverse (cdr l)) (list (car l)))))