Sync

Task/Loops-Break/Chapel/loops-break.chapel

@@ -0,0 +1,11 @@
+use Random;
+
+var r = new RandomStream();
+while true {
+        var a = floor(r.getNext() * 20):int;
+        writeln(a);
+        if a == 10 then break;
+        var b = floor(r.getNext() * 20):int;
+        writeln(b);
+}
+delete r;

Task/Loops-Break/Erlang/loops-break.erl

@@ -7,8 +7,9 @@ main() ->
   	
 for() ->
 	K = random:uniform(19),
+        io:fwrite( "~p ", [K] ),
 	if  K==10 ->
-		io:format("~p~n",[K]);
+		ok;
 	true ->
 		M = random:uniform(19),
 		io:format("~p~n",[M]),

Task/Loops-Break/Factor/loops-break-2.factor

@@ -1 +1 @@
-[ 20 random [ . ] [ 10 = not ] bi 20 random . ] loop
+[ 20 random [ . ] [ 10 = not ] bi dup [ 20 random . ] when ] loop