4 lines
98 B
Common Lisp
4 lines
98 B
Common Lisp
|
(defun problem (n) (cond ((< n 1) nil) (T (cons n (problem (- n 1))))))
|
||
|
|
(setf x (problem 20000))
|
||
|
|
|