Data update

Task/Loops-While/Dart/loops-while-1.dart

@@ -2,6 +2,6 @@ void main() {
   var val = 1024;
   while (val > 0) {
     print(val);
-    val >>= 2;
+    val >>= 1;
   }
 }

Task/Loops-While/Dart/loops-while-2.dart

@@ -1,7 +1,7 @@
 void main() {
-  num val = 1024;
+  var val = 1024;
   while (val > 0) {
     print(val);
-    val /= 2;
+    val ~/= 2;
   }
 }

Task/Loops-While/J/loops-while-2.j

@@ -1,7 +1 @@
-monad define 1024
-  while. 0 < y do.
-    smoutput y
-    y =. <. -: y
-  end.
-  i.0 0
-)
+0 0$([ echo)@<.@-:^:*^:_. ]1024

Task/Loops-While/J/loops-while-3.j

@@ -0,0 +1,7 @@
+monad define 1024
+  while. 0 < y do.
+    echo y
+    y =. <. -: y
+  end.
+  i.0 0
+)

Task/Loops-While/M2000-Interpreter/loops-while-1.m2000

@@ -1,8 +0,0 @@
-Module Checkit {
-      Def long A=1024
-      While A>0 {
-            Print A
-            A/=2
-      }
-}
-Checkit

Task/Loops-While/M2000-Interpreter/loops-while-2.m2000

@@ -1 +0,0 @@
-Module Online { A=1024&: While A>0 {Print A: A/=2}} : OnLine

Task/Loops-While/M2000-Interpreter/loops-while.m2000

@@ -0,0 +1,31 @@
+Module Checkit {
+	Long A=1024
+	While A>0 {
+		Print A
+		A/=2
+		if a<500 then goto alfa
+	}
+	Print "not that"
+alfa:	
+	Print "ok"
+}
+Checkit
+Module Checkit2 {
+	Long A=1024
+	While A>0
+		Print A
+		A/=2
+		if a<500 then 10
+	End While
+	Print "not that"
+10	Print "ok"
+}
+Checkit2
+Module Checkit3 {
+	A=(1,2,3,4,5)
+	B=Each(A, -1, 1)
+	While B
+		Print Array(B), B^
+	End While
+}
+Checkit3