Add Exercise 2.17

2022-11-05 14:59:04 +01:00 · 2022-11-05 14:59:04 +01:00 · b8690c9e5f
commit b8690c9e5f
parent a79350dd76
1 changed files with 5 additions and 0 deletions
--- a/chapter2.lisp
+++ b/chapter2.lisp
@ -118,3 +118,8 @@ and upper bound."
  (make-interval (* c (- 1 (/ p 100)))
 		 (* c (+ 1 (/ p 100)))))

+;; Exercise 2.17
+(defun last-pair (l)
+  (if (null (cdr l))
+      l
+      (last-pair (cdr l))))