Just another update

Task/Loops-Break/00DESCRIPTION

@@ -1 +1,4 @@
- Show a loop which prints random numbers (each number newly generated each loop) from 0 to 19 (inclusive). If a number is 10, stop the loop after printing it, and do not generate any further numbers.  Otherwise, generate and print a second random number before restarting the loop.  If the number 10 is never generated as the first number in a loop, loop forever.
+Show a loop which prints random numbers (each number newly generated each loop) from 0 to 19 (inclusive).
+If a number is 10, stop the loop after printing it, and do not generate any further numbers.
+Otherwise, generate and print a second random number before restarting the loop.
+If the number 10 is never generated as the first number in a loop, loop forever.

Task/Loops-Break/00META.yaml

@@ -1,4 +1,5 @@
 ---
 category:
 - Loop modifiers
+- Simple
 note: Iteration

Task/Loops-Break/Batch-File/loops-break.bat

@@ -3,4 +3,6 @@
   set /a N=%RANDOM% %% 20
   echo %N%
   if %N%==10 exit /b
+  set /a N=%RANDOM% %% 20
+  echo %N%
 goto loop

Task/Loops-Break/ColdFusion/loops-break.cfm

@@ -0,0 +1,8 @@
+<Cfset randNum = 0>
+<cfloop condition="randNum neq 10">
+  <Cfset randNum = RandRange(0, 19)>
+  <Cfoutput>#randNum#</Cfoutput>
+  <Cfif randNum eq 10><cfbreak></Cfif>
+  <Cfoutput>#RandRange(0, 19)#</Cfoutput>
+  <Br>
+</cfloop>

Task/Loops-Break/MAXScript/loops-break.max

@@ -0,0 +1,8 @@
+while true do
+(
+	a = random 0 19
+	format ("A: % \n") a
+	if a == 10 do exit
+	b = random 0 19
+	format ("B: % \n") b
+)

Task/Loops-Break/NewLISP/loops-break.newlisp

@@ -0,0 +1,2 @@
+(until (= 10 (println (rand 20)))
+  (println (rand 20)))

Task/Loops-Break/Oberon-2/loops-break.oberon-2

@@ -0,0 +1,21 @@
+MODULE LoopBreak;
+IMPORT
+  RandomNumbers,
+  Out;
+
+PROCEDURE Do();
+VAR
+  rn: LONGINT;
+BEGIN
+  LOOP
+    rn := RandomNumbers.RND(20);
+    Out.LongInt(rn,0);Out.Ln;
+    IF rn = 10 THEN EXIT END;
+    rn := RandomNumbers.RND(20);
+    Out.LongInt(rn,0);Out.Ln
+  END
+END Do;
+
+BEGIN
+  Do
+END LoopBreak.

Task/Loops-Break/PL-I/loops-break.pli

@@ -1,7 +1,7 @@
 do forever;
-   k = random()*19;
+   k = trunc(random()*20);
    put (k);
    if k = 10 then leave;
-   k = random()*19;
+   k = trunc(random()*20);
    put skip list (k);
 end;

Task/Loops-Break/Ruby/loops-break-1.rb

@@ -0,0 +1,10 @@
+loop do
+  a = rand(20)
+  print a
+  if a == 10
+    puts
+    break
+  end
+  b = rand(20)
+  puts "\t#{b}"
+end

Task/Loops-Break/Ruby/loops-break-2.rb

@@ -0,0 +1,5 @@
+loop do
+  print a = rand(20)
+  puts or break if a == 10
+  puts "\t#{rand(20)}"
+end

Task/Loops-Break/Ruby/loops-break.rb

@@ -1,9 +0,0 @@
-loop do
-    a = rand(20)
-    puts a
-    if a == 10
-        break
-    end
-    b = rand(20)
-    puts b
-end

Task/Loops-Break/TorqueScript/loops-break.torque

@@ -1,6 +1,6 @@
 for(%a = 0; %a > -1; %a++)
 {
-    %number = getRand(0, 19);
+    %number = getRandom(0, 19);
     if(%number == 10)
         break;
 }