Another update from ingydotnet^djgoku

Task/Loops-While/ALGOL-W/loops-while.alg

@@ -0,0 +1,9 @@
+begin
+    integer i;
+    i := 1024;
+    while i > 0 do
+    begin
+        write( i );
+        i := i div 2
+    end
+end.

Task/Loops-While/Elixir/loops-while.elixir

@@ -0,0 +1,9 @@
+defmodule Loops do
+  def while(0), do: :ok
+  def while(n) do
+    IO.puts n
+    while( div(n,2) )
+  end
+end
+
+Loops.while(1024)

Task/Loops-While/JavaScript/loops-while-1.js

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

Task/Loops-While/JavaScript/loops-while-2.js

@@ -0,0 +1,20 @@
+function loopWhile(varValue, fnDelta, fnTest) {
+  'use strict';
+  var d = fnDelta(varValue);
+
+  return fnTest(d) ? [d].concat(
+    loopWhile(d, fnDelta, fnTest)
+  ) : [];
+}
+
+console.log(
+  loopWhile(
+    1024,
+    function (x) {
+      return Math.floor(x/2);
+    },
+    function (x) {
+      return x > 0;
+    }
+  ).join('\n')
+);

Task/Loops-While/JavaScript/loops-while-3.js

@@ -0,0 +1,10 @@
+512
+256
+128
+64
+32
+16
+8
+4
+2
+1

Task/Loops-While/JavaScript/loops-while.js

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

Task/Loops-While/Julia/loops-while.julia

@@ -0,0 +1,6 @@
+n = 1024
+
+while n > 0
+    println(n)
+    n >>= 1
+end

Task/Loops-While/Neko/loops-while.neko

@@ -1,6 +1,6 @@
-var a = 5;
-var i = 0;
+var i = 1024
 
-while(i < a) {
-    i = i + 1;
+while(i > 0) {
+    $print(i + "\n");
+    i = $idiv(i, 2)
 }

Task/Loops-While/Rust/loops-while.rust

@@ -1,5 +1,5 @@
 fn main() {
-    let mut n = 1024i;
+    let mut n: i32 = 1024;
     while n > 0 {
         println!("{}", n);
         n /= 2;

Task/Loops-While/Scilab/loops-while.scilab

@@ -0,0 +1,5 @@
+i=1024
+while i>0
+    printf("%4d\n",i)
+    i=int(i/2)
+end