Anonymous user
Loops/Nested: Difference between revisions
→{{header|Scheme}}: ++ sather
No edit summary |
(→{{header|Scheme}}: ++ sather) |
||
Line 810:
6 19 8 13 ,
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}}==
| |||