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