A-M baby

Task/Loops-For/Common-Lisp/loops-for-1.lisp

@@ -0,0 +1,4 @@
+(loop for i from 1 upto 5 do
+  (loop for j from 1 upto i do
+    (write-char #\*))
+  (write-line ""))

Task/Loops-For/Common-Lisp/loops-for-2.lisp

@@ -0,0 +1,4 @@
+(dotimes (i 5)
+  (dotimes (j (+ i 1))
+    (write-char #\*))
+  (terpri))

Task/Loops-For/Common-Lisp/loops-for-3.lisp

@@ -0,0 +1,6 @@
+(do ((i 1 (+ i 1)))
+    ((> i 5))
+  (do ((j 1 (+ j 1)))
+      ((> j i))
+    (write-char #\*))
+  (terpri))