Collect and sort square numbers in ascending order from three lists: Difference between revisions

m
→‎{{header|REXX}}: show duplicates
(added AWK)
m (→‎{{header|REXX}}: show duplicates)
Line 340:
Parse Arg e
do i=1 To st.0
If st.i=e Then
Return
If st.i>e Then Do
Do j=st.0 To i By -1
Line 365 ⟶ 363:
{{out}}
<pre>REXX-Regina_3.9.4(MT) 5.00 25 Oct 2021
Ordered squares: 4 9 16 25 36 36 49 81 121 144 169
</pre>
 
2,289

edits