Collect and sort square numbers in ascending order from three lists: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) (added AWK) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: show duplicates) |
||
Line 340: | Line 340: | ||
Parse Arg e |
Parse Arg e |
||
do i=1 To st.0 |
do i=1 To st.0 |
||
If st.i=e Then |
|||
Return |
|||
If st.i>e Then Do |
If st.i>e Then Do |
||
Do j=st.0 To i By -1 |
Do j=st.0 To i By -1 |
||
Line 365: | Line 363: | ||
{{out}} |
{{out}} |
||
<pre>REXX-Regina_3.9.4(MT) 5.00 25 Oct 2021 |
<pre>REXX-Regina_3.9.4(MT) 5.00 25 Oct 2021 |
||
Ordered squares: 4 9 16 25 36 49 81 121 144 169 |
Ordered squares: 4 9 16 25 36 36 49 81 121 144 169 |
||
</pre> |
</pre> |
||