Anonymous user
Loops/While: Difference between revisions
→{{header|Common Lisp}}: use local variables I and use a global variable *i*
(→{{header|Common Lisp}}: use local variables I and use a global variable *i*) |
|||
Line 426:
=={{header|Common Lisp}}==
<lang lisp>(
(loop while (
(print i)
(
(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}}==
|