update

Task/Loops-For/COBOL/loops-for.cobol

@@ -0,0 +1,21 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Display-Triangle.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Outer-Counter PIC 9.
+       01  Inner-Counter PIC 9.
+
+       PROCEDURE DIVISION.
+       PERFORM VARYING Outer-Counter FROM 1 BY 1 UNTIL 5 < Outer-Counter
+
+           PERFORM VARYING Inner-Counter FROM 1 BY 1
+                   UNTIL Outer-Counter < Inner-Counter
+               DISPLAY "*" NO ADVANCING
+           END-PERFORM
+
+           DISPLAY "" *> Output a newline
+       END-PERFORM
+
+       GOBACK
+       .

Task/Loops-For/Erlang/loops-for.erl

@@ -0,0 +1,24 @@
+%% Implemented by Arjun Sunel
+-module(nested_loops).
+-export([main/0, inner_loop/0]).
+
+main() ->
+	outer_loop(1).
+	
+inner_loop()->
+	inner_loop(1).
+
+inner_loop(N) when N rem 5 =:= 0 ->
+	io:format("* ");
+
+inner_loop(N) ->
+	io:fwrite("* "),
+	inner_loop(N+1).
+
+outer_loop(N) when N rem 5 =:= 0 ->
+	io:format("*");
+
+outer_loop(N) ->
+	outer_loop(N+1),
+	io:format("~n"),
+	inner_loop(N).

Task/Loops-For/FBSL/loops-for.fbsl

@@ -0,0 +1,8 @@
+#APPTYPE CONSOLE
+FOR dim i = 1 TO 5
+    FOR dim j = 1 TO i
+        PRINT "*";
+    NEXT j
+    PRINT
+NEXT i
+Pause

Task/Loops-For/Racket/loops-for.rkt

@@ -1,4 +1 @@
-(for ([i (in-range 1 6)])
-  (for ([j i])
-    (display "*"))
-  (newline))
+(for ([i (in-range 1 6)]) (for ([j i]) (display "*")) (newline))