1 files changed, 8 insertions(+), 0 deletions(-)

A src/problem_01.lisp

@@ 0,0 1,8 @@
+;;;; P01 (*) Find the last box of a list.
+
+(defun p01/last (list)
+  "Return the last element of `list'."
+  (cond
+    ((endp list) nil)
+    ((endp (rest list)) list)
+    (t (p01/last (rest list)))))