Loops/Nested: Difference between revisions
→{{header|ALGOL 68}}
(FutureBasic solution added) |
|||
Line 254:
8 9 1 15 3 1 10 19 6 7
12 20
</pre>
=={{header|Amazing Hopper}}==
<syntaxhighlight lang="bennuGD">
#include <jambo.h>
#define DIMS 10
Main
Unset decimal
Dim (DIMS,DIMS) as ceil rand (20,t)
Set decimal '0'
Printnl ("ORIGINAL MATRIX:\n", Just right (3, Str(t)), "\n")
aux=0
Loop for ( i=1, #(i<=DIMS), ++i)
Loop for ( j=1, #(j<=DIMS), ++j)
When ( Not ( Sub (20, [i,j] Get 't' ---Copy to 'aux'---)) ) { Break }
Just right (3, Str(aux)), Print only if ( #(DIMS-j), "," )
Next
Prnl
When( Equals(aux,20)) { Break }
Next
Printnl ("\nFOUNDED: ", i,",",j," = ",aux)
End
</syntaxhighlight>
{{out}}
<pre>
ORIGINAL MATRIX:
16, 5, 15, 19, 14, 15, 12, 15, 10, 19
6, 8, 17, 1, 5, 13, 14, 4, 15, 5
10, 17, 8, 4, 9, 19, 14, 17, 7, 4
7, 2, 8, 1, 20, 1, 15, 12, 16, 4
10, 2, 12, 7, 3, 16, 19, 16, 19, 14
1, 9, 11, 9, 12, 19, 7, 6, 16, 13
9, 2, 15, 16, 2, 15, 17, 17, 7, 13
20, 17, 15, 12, 3, 17, 8, 2, 13, 7
15, 13, 15, 6, 2, 7, 5, 8, 12, 20
1, 20, 1, 16, 16, 2, 10, 12, 19, 17
16, 5, 15, 19, 14, 15, 12, 15, 10, 19
6, 8, 17, 1, 5, 13, 14, 4, 15, 5
10, 17, 8, 4, 9, 19, 14, 17, 7, 4
7, 2, 8, 1,
FOUNDED: 4,5 = 20
</pre>
| |||