Add Exercise 2.27

2022-11-08 21:56:33 +01:00 · 2022-11-08 21:56:33 +01:00 · edf806a655
commit edf806a655
parent ccd381fb9a
1 changed files with 6 additions and 0 deletions
--- a/chapter2.lisp
+++ b/chapter2.lisp
@ -155,3 +155,9 @@ and upper bound."

 (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)))))))
+
+;; Exercise 2.27
+(defun deep-reverse (l)
+  (if (null l)
+      ()
+      (append (deep-reverse (cdr l)) (list (car l)))))