Data update

Task/Loops-For/Ada/loops-for.ada

@@ -1,6 +0,0 @@
-for I in 1..5 loop
-   for J in 1..I loop
-      Put("*");
-   end loop;
-   New_Line;
-end loop;

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

@@ -1,21 +0,0 @@
-       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/Chapel/loops-for.chapel

@@ -1,4 +0,0 @@
-for i in 1..5 {
-        for 1..i do write('*');
-        writeln();
-}

Task/Loops-For/Coq/loops-for.coq

@@ -1,23 +0,0 @@
-Section FOR.
-  Variable T : Type.
-  Variable body : nat -> T -> T.
-  Variable start : nat.
-
-  Fixpoint for_loop n : T -> T :=
-    match n with
-    | O => fun s => s
-    | S n' => fun s => for_loop n' (body (start + n') s)
-    end.
-
-End FOR.
-
-Eval vm_compute in
-  for_loop _
-    (fun i =>
-      cons
-        (for_loop _
-          (fun j => cons tt)
-          0 (S i) nil
-        )
-    )
-    0 5 nil.

Task/Loops-For/Elena/loops-for.elena

@@ -1,12 +1,12 @@
 import extensions;
 
-public program()
+public Program()
 {
     for(int i := 0; i < 5; i += 1)
     {
         for(int j := 0; j <= i; j += 1)
-            { console.write("*") };
+            { Console.write("*") };
 
-        console.writeLine()
+        Console.writeLine()
     }
 }

Task/Loops-For/Emacs-Lisp/loops-for.l

@@ -1,11 +0,0 @@
-;; Lisp implementation of c-for is like:
-;; (let ((i nil))
-;;   (while (progn (setq i (if (not i) 0 (1+ i) )) ;; if value of i is nil, initialize its value to 0, if else, add 1
-;; 		(< i 10))                       ;; end loop when i > 10
-;;     (... body ...) ) )                          ;; loop body
-
-(let ((i nil) (str ""))
-  (while (progn (setq i (if (not i) 0 (1+ i) ))
-		(< i 5))
-    (setq str (concat str "*"))
-    (message str) ) )

Task/Loops-For/Euphoria/loops-for.ex

@@ -1,6 +0,0 @@
-for i = 1 to 5 do
-    for j = 1 to i do
-        puts(1, "*") -- Same as "puts(1, {'*'})"
-    end for
-    puts(1, "\n") -- Same as "puts(1, {'\n'})"
-end for

Task/Loops-For/Haxe/loops-for.haxe

@@ -1,6 +0,0 @@
-for (i in 1...6) {
-	for(j in 0...i) {
-		Sys.print('*');
-	}
-	Sys.println('');
-}

Task/Loops-For/Oberon/loops-for.oberon

@@ -7,7 +7,7 @@ VAR
 BEGIN
   FOR i := 1 TO 5 DO
     FOR j := 1 TO i DO
-      Out.Char('*');
+      Out.Char("*");
     END;
     Out.Ln
   END

Task/Loops-For/PowerShell/loops-for-1.psh

@@ -1,6 +0,0 @@
-for ($i = 1; $i -le 5; $i++) {
-    for ($j = 1; $j -le $i; $j++) {
-        Write-Host -NoNewline *
-    }
-    Write-Host
-}

Task/Loops-For/PowerShell/loops-for-2.psh

@@ -1,6 +0,0 @@
-1..5 | ForEach-Object {
-    1..$_ | ForEach-Object {
-        Write-Host -NoNewline *
-    }
-    Write-Host
-}

Task/Loops-For/REBOL/loops-for.rebol

@@ -1,13 +0,0 @@
-; Use 'repeat' when an index required, 'loop' when repetition suffices:
-
-repeat i 5 [
-	loop i [prin "*"]
-	print ""
-]
-
-; or a more traditional for loop:
-
-for i 1 5 1 [
-	loop i [prin "*"]
-	print ""
-]

Task/Loops-For/ReScript/loops-for.re

@@ -1,8 +0,0 @@
-let s = ref("")
-for i in 1 to 5 {
-  for _ in 1 to i {
-    s := Js.String2.concat(s.contents, "*")
-  }
-  s := Js.String2.concat(s.contents, "\n")
-}
-Js.log(s.contents)

Task/Loops-For/VBScript/loops-for.vb

@@ -1,9 +0,0 @@
-Option Explicit
-Dim i, j, s
-For i = 1 To 5
-    s = ""
-    For j = 1 To i
-        s = s + "*"
-    Next
-    WScript.Echo s
-Next