Time for an 2014 update…

Task/Loops-Nested/GAP/loops-nested.gap

@@ -0,0 +1,18 @@
+# You can't break an outer loop unless you return from the whole function.
+n := 40;
+a := List([1 .. n], i -> List([1 .. n], j -> Random(1, 20)));;
+
+Find := function(a, x)
+    local i, j, n;
+    n := Length(a);
+    for i in [1 .. n] do
+        for j in [1 .. n] do
+            if a[i][j] = x then
+                return [i, j];
+            fi;
+        od;
+    od;
+    return fail;
+end;
+
+Find(a, 20);

Task/Loops-Nested/Rust/loops-nested.rust

@@ -0,0 +1,23 @@
+// rust 0.9-pre
+
+use std::rand::Rng;
+
+fn main() {
+    let mut matrix = [[0u8, .. 10], .. 10];
+    let mut rng = std::rand::os::OSRng::new();
+
+    for row in matrix.mut_iter() {
+        for item in row.mut_iter() {
+            *item = rng.gen_range(0u8, 21);
+        }
+    }
+
+    'outer:
+    for row in matrix.iter() {
+        for &item in row.iter() {
+            print!("{:2} ", item);
+            if item == 20 { break 'outer; }
+        }
+        println!("");
+    }
+}

Task/Loops-Nested/Seed7/loops-nested.seed7

@@ -0,0 +1,28 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: i is 0;
+    var integer: j is 0;
+    var array array integer: a is 10 times 10 times 0;
+    const EXCEPTION: FOUND20 is enumlit;
+  begin
+    for i range 1 to 10 do
+      for j range 1 to 10 do
+        a[i][j] := rand(1, 20);
+      end for;
+    end for;
+    block
+      for i range 1 to 10 do
+        for j range 1 to 10 do
+          write(a[i][j] lpad 2 <& ", ");
+          if a[i][j] = 20 then
+            raise FOUND20;
+          end if;
+        end for;
+        writeln;
+      end for;
+    exception
+      catch FOUND20: writeln;
+    end block;
+  end func;