Family Day update

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

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

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

@@ -0,0 +1,7 @@
+(use-package :iterate)
+(iter
+  (for i from 1 to 5)
+    (iter
+      (for j from 1 to i)
+      (princ #\*))
+    (terpri))

Task/Loops-For/Crystal/loops-for-1.crystal

@@ -0,0 +1,6 @@
+1.upto(5) do |i|
+  1.upto(i) do |j|
+    print "*"
+  end
+  puts
+end

Task/Loops-For/Crystal/loops-for-2.crystal

@@ -0,0 +1 @@
+puts (1..5).map { |i| "*" * i }.join("\n")