Loops/While: Difference between revisions

Content added Content deleted

Inline

@@ Line 426: / Line 426: @@
 =={{header|Common Lisp}}==
-<lang lisp>(setq i 1024)
+<lang lisp>(let ((i 1024))
-(loop while (> i 0) do
+  (loop while (plusp i) do
-  (print i)
+        (print i)
-  (setq i (floor i 2)))</lang>
+        (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)))
+</lang>
 =={{header|Crack}}==