transcendental-lisp/lisp/problem.lisp

4 lines
98 B
Common Lisp

(defun problem (n) (cond ((< n 1) nil) (T (cons n (problem (- n 1))))))
(setf x (problem 20000))