Sync

Task/Loops-While/Aime/loops-while.aime

@@ -0,0 +1,7 @@
+integer i;
+
+i = 1024;
+while (i) {
+    o_plan(i, "\n");
+    i /= 2;
+}

Task/Loops-While/Befunge/loops-while.bf

@@ -1,2 +1,2 @@
-84*:*>   :v
-     ^/2.:_@
+84*:*>       :v
+     ^/2,*25.:_@

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

@@ -0,0 +1,15 @@
+       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

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