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

Add Exercise 2.17

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-05 14:59:04 +01:00
parent a79350dd76
commit b8690c9e5f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
chapter2.lisp
View File

@ -118,3 +118,8 @@ and upper bound."
(make-interval (* c (- 1 (/ p 100))) (make-interval (* c (- 1 (/ p 100)))
(* c (+ 1 (/ p 100))))) (* c (+ 1 (/ p 100)))))
;; Exercise 2.17
(defun last-pair (l)
(if (null (cdr l))
l
(last-pair (cdr l))))