Add tasks for all the new languages

Task/Loops-While/Axe/loops-while.axe

@@ -0,0 +1,5 @@
+1024→A
+While A>0
+ Disp A▶Dec,i
+ A/2→A
+End

Task/Loops-While/ChucK/loops-while.chuck

@@ -0,0 +1,7 @@
+1024 => int value;
+
+while(value > 0)
+{
+    <<<value>>>;
+    value / 2 => value;
+}

Task/Loops-While/ERRE/loops-while.erre

@@ -0,0 +1,5 @@
+   I%=1024
+   WHILE I%>0 DO  ! you can leave out >0
+     PRINT(I%)
+     I%=I% DIV 2  ! I%=INT(I%/2) for C-64 version
+   END WHILE

Task/Loops-While/EchoLisp/loops-while.echolisp

@@ -0,0 +1,3 @@
+(set! n 1024)
+(while (> n 0) (write n) (set! n (quotient n 2)))
+1024 512 256 128 64 32 16 8 4 2 1

Task/Loops-While/FreeBASIC/loops-while.freebasic

@@ -0,0 +1,10 @@
+' FB 1.05.0 Win64
+
+Dim i As Integer = 1024
+
+While i > 0
+  Print i
+  i Shr= 1
+Wend
+
+Sleep

Task/Loops-While/FutureBasic/loops-while.futurebasic

@@ -0,0 +1,8 @@
+include "ConsoleWindow"
+
+dim as long i : i = 1024
+
+while i > 0
+print i
+i = int( i / 2 )
+wend

Task/Loops-While/Lasso/loops-while.lasso

@@ -0,0 +1,5 @@
+local(i = 1024)
+while(#i > 0) => {^
+	#i + '\r'
+	#i /= 2
+^}

Task/Loops-While/Lingo/loops-while.lingo

@@ -0,0 +1,5 @@
+n = 1024
+repeat while n>0
+  put n
+  n = n/2 -- integer division implicitely returns floor: 1/2 -> 0
+end repeat

Task/Loops-While/LiveCode/loops-while.livecode

@@ -0,0 +1,5 @@
+put 1024 into n
+repeat while n > 0
+    put n & cr
+    divide n by 2
+end repeat

Task/Loops-While/Monte/loops-while.monte

@@ -0,0 +1,4 @@
+var i := 1024
+while (i > 0):
+    traceln(i)
+    i //= 2

Task/Loops-While/Morfa/loops-while.morfa

@@ -0,0 +1,8 @@
+import morfa.io.print;
+
+var i = 1024;
+while(i > 0)
+{
+    println(i);
+    i /= 2;
+}

Task/Loops-While/Nim/loops-while.nim

@@ -0,0 +1,4 @@
+var n: int = 1024
+while n > 0:
+  echo(n)
+  n = n div 2

Task/Loops-While/Oforth/loops-while.oforth

@@ -0,0 +1 @@
+1024 while ( dup ) [ dup println 2 / ]

Task/Loops-While/PHL/loops-while.phl

@@ -0,0 +1,5 @@
+var i = 1024;
+while (i > 0) {
+	printf("%i\n", i);
+	i = i/2;
+}

Task/Loops-While/Panda/loops-while.panda

@@ -0,0 +1,2 @@
+fun half(a) type integer->integer a.divide(2)
+1024.trans(func:half).gt(0) nl

Task/Loops-While/PeopleCode/loops-while.peoplecode

@@ -0,0 +1,9 @@
+Local string &CRLF;
+Local number &LoopNumber;
+&LoopNumber = 1024;
+&CRLF = Char(10) | Char(13);
+
+While &LoopNumber > 0;
+ WinMessage(&LoopNumber | &CRLF);
+ &LoopNumber = &LoopNumber / 2;
+End-While;

Task/Loops-While/Phix/loops-while.phix

@@ -0,0 +1,5 @@
+integer i = 1024
+while i!=0 do
+    ?i
+    i = floor(i/2)  -- (see note)
+end while

Task/Loops-While/Ring/loops-while.ring

@@ -0,0 +1,5 @@
+i = 1024
+while i > 0
+      see i + nl
+      i = floor(i / 2)
+end

Task/Loops-While/Sidef/loops-while.sidef

@@ -0,0 +1,5 @@
+var i = 1024
+while (i > 0) {
+    say i
+    i //= 2
+}

Task/Loops-While/Sparkling/loops-while.sparkling

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

Task/Loops-While/Swift/loops-while.swift

@@ -0,0 +1,5 @@
+var i = 1024
+while i > 0 {
+  println(i)
+  i /= 2
+}

Task/Loops-While/Uniface/loops-while.uniface

@@ -0,0 +1,9 @@
+variables
+	numeric I
+endvariables
+
+I = 1024
+while (I > 0)
+	putmess I
+	I = (I/2)[trunc]
+endwhile

Task/Loops-While/Ursa/loops-while.ursa

@@ -0,0 +1,7 @@
+decl int n
+set n 1024
+
+while (> n 0)
+    out n endl console
+    set n (int (/ n 2))
+end while

Task/Loops-While/Wart/loops-while.wart

@@ -0,0 +1,4 @@
+i <- 1024
+while (i > 0)
+  prn i
+  i <- (int i/2)

Task/Loops-While/XLISP/loops-while.xlisp

@@ -0,0 +1,5 @@
+(DEFINE I 1024)
+
+(WHILE (>= I 1)
+    (PRINT I)
+    (DEFINE I (/ I 2)))

Task/Loops-While/jq/loops-while-1.jq

@@ -0,0 +1,2 @@
+# To avoid printing 0, test if the input is greater than 1
+1024 | recurse( if . > 1 then ./2 | floor else empty end)

Task/Loops-While/jq/loops-while-2.jq

@@ -0,0 +1 @@
+1024 | recurse( ./2 | floor; . > 0)

Task/Loops-While/jq/loops-while-3.jq

@@ -0,0 +1,2 @@
+def task: if . > 0 then ., (./2 | floor | task) else empty end;
+1024|task

Task/Loops-While/jq/loops-while-4.jq

@@ -0,0 +1,3 @@
+def while(cond; update):
+  def _while: if cond then ., (update | _while) else empty end;
+  _while;

Task/Loops-While/jq/loops-while-5.jq

@@ -0,0 +1 @@
+1024|while(. > 0; ./2|floor)