~diego/lisp-99-problems

b1e2add738fbf0fc8fc590693bf332af873c1bb8 — Diego Vicente 3 years ago 4bfaebb master
Add recursive solution for problem 01
1 files changed, 8 insertions(+), 0 deletions(-)

A src/problem_01.lisp
A src/problem_01.lisp => src/problem_01.lisp +8 -0
@@ 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)))))