RosettaCodeData/Task/Loops-Downward-for/Common-Lisp/loops-downward-for-4.lisp
2023-07-01 13:44:08 -04:00

5 lines
113 B
Common Lisp

(defun down-to-0 (count)
(print count)
(if (not (zerop count))
(down-to-0 (1- count))))
(down-to-0 10)