transcendental-lisp/lisp/random/problem.lisp

(defun problem (n)
  (if (< n 1) nil
    (cons n (problem (- n 1)))))

(setq y (problem 20))
(setq x (problem 20000))
Resolves #6 - PROGN Special Function (Form) 2017-02-27 15:36:17 -05:00			`(defun problem (n)`
			`(if (< n 1) nil`
Re-organize the lisp files 2017-03-06 11:00:18 -05:00			`(cons n (problem (- n 1)))))`
Resolves #6 - PROGN Special Function (Form) 2017-02-27 15:36:17 -05:00
Remove SETF function 2017-03-07 16:41:26 -05:00			`(setq y (problem 20))`
			`(setq x (problem 20000))`