From ccd381fb9aa04080ad76def8f2931839378e67df Mon Sep 17 00:00:00 2001 From: Tobias Eidelpes Date: Tue, 8 Nov 2022 19:00:41 +0100 Subject: [PATCH] Add Exercise 2.25 --- chapter2.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/chapter2.lisp b/chapter2.lisp index e0d5e44..7a67888 100644 --- a/chapter2.lisp +++ b/chapter2.lisp @@ -145,3 +145,13 @@ and upper bound." ;; Exercise 2.23 (defun for-each (func thing) (mapcar func thing)) + +;; Exercise 2.25 +(defvar list-1 (list 1 3 (list 5 7) 9)) +(defun pick-7-list-1 () (car (cdr (car (cddr list-1))))) + +(defvar list-2 (list (list 7))) +(defun pick-7-list-2 () (car (car list-2))) + +(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)))))))