Loops/While: Difference between revisions

Content added Content deleted
(→‎{{header|Common Lisp}}: use local variables I and use a global variable *i*)
Line 426:
 
=={{header|Common Lisp}}==
<lang lisp>(setqlet ((i 1024))
(loop while (>plusp i 0) do
(print i)
(setqsetf i (floor i 2)))</lang>)
 
(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)))
</lang>
 
=={{header|Crack}}==
Retrieved from "https://rosettacode.org/wiki/Loops/While"