Add Exercise 2.18

2022-11-05 14:59:19 +01:00 · 2022-11-05 14:59:19 +01:00 · aef78e5af1
commit aef78e5af1
parent b8690c9e5f
1 changed files with 6 additions and 0 deletions
--- a/chapter2.lisp
+++ b/chapter2.lisp
@ -123,3 +123,9 @@ and upper bound."
  (if (null (cdr l))
      l
      (last-pair (cdr l))))
+
+;; Exercise 2.18
+(defun reverse-user (l)
+  (if (null l)
+      ()
+      (append (reverse-user (cdr l)) (list (car l)))))