Minimum numbers of three lists: Difference between revisions
Added XPL0 example.
Walterpachl (talk | contribs) m (add REXX) |
(Added XPL0 example.) |
||
Line 624:
<pre>
[5, 22, 12, 21, 38]
</pre>
=={{header|XPL0}}==
<lang XPL0>func Min(A, B);
int A, B;
return if A<B then A else B;
int N1, N2, N3, I;
[N1:= [5,45,23,21,67];
N2:= [43,22,78,46,38];
N3:= [9,98,12,98,53];
for I:= 0 to 4 do
[IntOut(0, Min(Min(N1(I), N2(I)), Min(N2(I), N3(I))));
ChOut(0, ^ );
];
]</lang>
{{out}}
<pre>
5 22 12 21 38
</pre>
|