Loops/Nested: Difference between revisions
Content added Content deleted
(added ReScript) |
(Added solution for Action!) |
||
Line 116: | Line 116: | ||
11 13 13 6 13 19 9 18 11 4 7 8 6 7 2 10 14 4 5 1 |
11 13 13 6 13 19 9 18 11 4 7 8 6 7 2 10 14 4 5 1 |
||
16 14 13 6 11 20</pre> |
16 14 13 6 11 20</pre> |
||
=={{header|Action!}}== |
|||
<lang Action!>PROC Main() |
|||
DEFINE PTR="CARD" |
|||
BYTE i,j,found |
|||
PTR ARRAY a(10) |
|||
BYTE ARRAY tmp, |
|||
a0(10),a1(10),a2(10),a3(10),a4(10), |
|||
a5(10),a6(10),a7(10),a8(10),a9(10) |
|||
a(0)=a0 a(1)=a1 a(2)=a2 a(3)=a3 a(4)=a4 |
|||
a(5)=a5 a(6)=a6 a(7)=a7 a(8)=a8 a(9)=a9 |
|||
FOR j=0 TO 9 |
|||
DO |
|||
tmp=a(j) |
|||
FOR i=0 TO 9 |
|||
DO |
|||
tmp(i)=Rand(20)+1 |
|||
OD |
|||
OD |
|||
found=0 |
|||
FOR j=0 TO 9 |
|||
DO |
|||
tmp=a(j) |
|||
FOR i=0 TO 9 |
|||
DO |
|||
PrintB(tmp(i)) Put(32) |
|||
IF tmp(i)=20 THEN |
|||
found=1 EXIT |
|||
FI |
|||
OD |
|||
IF found THEN |
|||
EXIT |
|||
FI |
|||
PutE() |
|||
OD |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Loops_nested.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
12 10 16 15 19 7 1 18 3 11 |
|||
18 3 7 12 18 17 16 12 14 7 |
|||
14 5 19 8 9 4 6 12 12 2 |
|||
15 9 9 1 17 17 2 8 8 14 |
|||
2 14 14 5 5 6 20 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |