A-M baby

Task/Loops-Nested/Icon/loops-nested-1.icon

@@ -0,0 +1,10 @@
+procedure main()
+
+every !(!(L  := list(10)) := list(10))  := ?20   # setup a 2d array of random numbers up to 20
+
+every i := 1 to *L do                            # using nested loops
+   every j := 1 to *L[i] do
+      if L[i,j] = 20 then
+         break break write("L[",i,",",j,"]=20")
+
+end

Task/Loops-Nested/Icon/loops-nested-2.icon

@@ -0,0 +1,4 @@
+every x := L[i := 1 to *L,1 to *L[i]] do
+    if x = 20 then break write("L[",i,",",j,"]=20")  # more succinctly
+
+every if !!L = 20 then break write("Found !!L=20")   # even more so (but looses the values of i and j