Data commit

Task/Loops-Nested/Lisaac/loops-nested.lisaac

@@ -0,0 +1,35 @@
+Section Header
+
++ name := TEST_LOOP_NESTED;
+
+- external := `#include <time.h>`;
+
+Section Public
+
+- main <- (
+  + a : ARRAY2[INTEGER];
+  + i, j: INTEGER;
+
+  `srand(time(NULL))`;
+  a := ARRAY2[INTEGER].create(0, 0) to (9, 9);
+  0.to 9 do { ii : INTEGER;
+    0.to 9 do { jj : INTEGER;
+      a.put (`rand()`:INTEGER % 20 + 1) to (ii, jj);
+    };
+  };
+  { i < 10 }.while_do {
+    j := 0;
+    { j < 10 }.while_do {
+      ' '.print;
+      a.item(i, j).print;
+      (a.item(i, j) = 20).if {
+        i := 999;
+        j := 999;
+      };
+      j := j + 1;
+    };
+    i := i + 1;
+    '\n'.print;
+  };
+  '\n'.print;
+);