Data commit

Task/Loops-Continue/Common-Lisp/loops-continue-1.lisp

@@ -0,0 +1,19 @@
+(do ((i 1 (1+ i)))
+    ((> i 10))
+  (format t "~a~:[, ~;~%~]" i (zerop (mod i 5))))
+
+(do ((i 1 (1+ i)))
+    ((> i 10))
+  (write i)
+  (when (zerop (mod i 5))
+    (terpri)
+    (go end))
+  (write-string ", ")
+  end)
+
+(do ((i 1 (1+ i)))
+    ((> i 10))
+  (write i)
+  (if (zerop (mod i 5))
+    (terpri)
+    (write-string ", ")))

Task/Loops-Continue/Common-Lisp/loops-continue-2.lisp

@@ -0,0 +1,14 @@
+(loop for i from 1 to 10
+      do (write i)
+      if (zerop (mod i 5))
+        do (terpri)
+      else
+        do (write-string ", "))
+
+(loop for i from 1 to 10 do
+  (block continue
+    (write i)
+    (when (zerop (mod i 5))
+      (terpri)
+      (return-from continue))
+    (write-string ", ")))