aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Loops-While/Common-Lisp/loops-while.lisp
View file

@ -1,4 +1,14 @@
(setq i 1024)
(loop while (> i 0) do
(print i)
(setq i (floor i 2)))
(let ((i 1024))
(loop while (plusp i) do
(print i)
(setf i (floor i 2))))
(loop with i = 1024
while (plusp i) do
(print i)
(setf i (floor i 2)))
(defparameter *i* 1024)
(loop while (plusp *i*) do
(print *i*)
(setf *i* (floor *i* 2)))