Data update

Task/Loops-While/Ada/loops-while.ada

@@ -1,8 +0,0 @@
-declare
-   I : Integer := 1024;
-begin
-   while I > 0 loop
-      Put_Line(Integer'Image(I));
-      I := I / 2;
-   end loop;
-end;

Task/Loops-While/COBOL/loops-while.cobol

@@ -1,15 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Loop-While.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  I PIC 9999 VALUE 1024.
-
-       PROCEDURE DIVISION.
-           PERFORM UNTIL NOT 0 < I
-               DISPLAY I
-               DIVIDE 2 INTO I
-           END-PERFORM
-
-           GOBACK
-           .

Task/Loops-While/Chapel/loops-while.chapel

@@ -1,5 +0,0 @@
-var val = 1024;
-while val > 0 {
-        writeln(val);
-        val /= 2;
-}

Task/Loops-While/Elena/loops-while.elena

@@ -1,9 +1,9 @@
-public program()
+public Program()
 {
     int i := 1024;
     while (i > 0)
     {
-        console.writeLine(i);
+        Console.writeLine(i);
 
         i /= 2
     }

Task/Loops-While/Emacs-Lisp/loops-while.l

@@ -1,4 +0,0 @@
-(let ((i 1024))
-  (while (> i 0)
-    (message "%d" i)
-    (setq i (/ i 2))))

Task/Loops-While/Euphoria/loops-while.ex

@@ -1,7 +0,0 @@
-integer i
-i = 1024
-
-while i > 0 do
-    printf(1, "%g\n", {i})
-    i = floor(i/2) --Euphoria does NOT use integer division.  1/2 = 0.5
-end while

Task/Loops-While/Fennel/loops-while.fennel

@@ -1,4 +1,4 @@
-(var n 1024)
+(var i 1024)
 (while (> i 0)
   (print i)
-  (set i (// n 2)))
+  (set i (// i 2)))

Task/Loops-While/Haxe/loops-while-1.haxe

@@ -1,6 +0,0 @@
-var i = 1024;
-
-while (i > 0) {
-  Sys.println(i);
-  i >>= 1;
-}

Task/Loops-While/Haxe/loops-while-2.haxe

@@ -1,6 +0,0 @@
-var i = 1024;
-
-while (i > 0) {
-  Sys.println(i);
-  i = Std.int(i / 2);
-}

Task/Loops-While/Oberon/loops-while.oberon

@@ -1,10 +1,17 @@
-PROCEDURE DivBy2*();
-  VAR i: INTEGER;
+MODULE WhileExample;
+  IMPORT Out;
+
+  PROCEDURE DivBy2*();
+    VAR i: INTEGER;
+  BEGIN
+    i := 1024;
+    WHILE i > 0 DO
+      Out.Int(i,0);
+      Out.Ln;
+      i := i DIV 2;
+    END;
+  END DivBy2;
+
 BEGIN
-  i := 1024;
-  WHILE i > 0 DO
-    Out.Int(i,0);
-    Out.Ln;
-    i := i DIV 2;
-  END;
-END DivBy2;
+  DivBy2
+END WhileExample.

Task/Loops-While/PowerShell/loops-while.psh

@@ -1,5 +0,0 @@
-[int]$i = 1024
-while ($i -gt 0) {
-    $i
-    $i /= 2
-}

Task/Loops-While/Python/loops-while.py

@@ -1,4 +1,4 @@
 n = 1024
 while n > 0:
-    print n
+    print (n)
     n //= 2

Task/Loops-While/REBOL/loops-while.rebol

@@ -1,10 +0,0 @@
-REBOL [
-	Title: "Loop/While"
-	URL: http://rosettacode.org/wiki/Loop/While
-]
-
-value: 1024
-while [value > 0][
-	print value
-	value: to integer! value / 2
-]

Task/Loops-While/ReScript/loops-while.re

@@ -1,5 +0,0 @@
-let n = ref(1024)
-while n.contents > 0 {
-  Js.log(n.contents)
-  n := n.contents / 2
-}

Task/Loops-While/Visual-Basic-.NET/loops-while.vb

@@ -1,5 +1,9 @@
-Dim x = 1024
-Do
-    Console.WriteLine(x)
-    x = x \ 2
-Loop While x > 0
+Module M1
+    Public Sub Main
+        Dim x = 1024
+        Do While x > 0
+            Console.WriteLine(x)
+            x \= 2
+        Loop
+    End Sub
+End Module