7 lines
118 B
Common Lisp
7 lines
118 B
Common Lisp
(defun problem (n)
|
|
(if (< n 1) nil
|
|
(cons n (problem (- n 1)))))
|
|
|
|
(setf y (problem 20))
|
|
(setf x (problem 20000))
|