Loops/Nested: Difference between revisions
Content added Content deleted
No edit summary |
(→{{header|Scheme}}: ++ sather) |
||
Line 810: | Line 810: | ||
6 19 8 13 , |
6 19 8 13 , |
||
1 20 done</pre> |
1 20 done</pre> |
||
=={{header|Sather}}== |
|||
<lang sather>class MAIN is |
|||
main is |
|||
a:ARRAY2{INT} := #(10,10); |
|||
i, j :INT; |
|||
RND::seed(1230); |
|||
loop i := 0.upto!(9); |
|||
loop j := 0.upto!(9); |
|||
a[i, j] := RND::int(1, 20); |
|||
end; |
|||
end; |
|||
loopthis ::= true; |
|||
loop i := 0.upto!(9); while!( loopthis ); |
|||
loop j := 0.upto!(9); |
|||
#OUT + " " + a[i, j]; |
|||
if a[i, j] = 20 then |
|||
loopthis := false; |
|||
break!; |
|||
end; |
|||
end; |
|||
end; |
|||
end; |
|||
end;</lang> |
|||
=={{header|Scheme}}== |
=={{header|Scheme}}== |