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

Add Exercise 2.18

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-05 14:59:19 +01:00
parent b8690c9e5f
commit aef78e5af1
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

@ -123,3 +123,9 @@ and upper bound."
(if (null (cdr l)) (if (null (cdr l))
l l
(last-pair (cdr l)))) (last-pair (cdr l))))
;; Exercise 2.18
(defun reverse-user (l)
(if (null l)
()
(append (reverse-user (cdr l)) (list (car l)))))