Collect and sort square numbers in ascending order from three lists: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) m (→{{header|REXX}}: show duplicates) |
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: show duplicates) |
||
| Line 189: | Line 189: | ||
store: |
store: |
||
do i=1 To st.0 |
do i=1 To st.0 |
||
/* |
|||
If st.i=e Then |
If st.i=e Then |
||
Return |
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 214: | Line 216: | ||
{{out}} |
{{out}} |
||
<pre>REXX-ooRexx_5.0.0(MT)_64-bit 6.05 8 Sep 2020 |
<pre>REXX-ooRexx_5.0.0(MT)_64-bit 6.05 8 Sep 2020 |
||
Ordered squares: 4 9 16 25 36 49 81 121 144 169</pre> |
Ordered squares: 4 9 16 25 36 36 49 81 121 144 169</pre> |
||
=={{header|Perl}}== |
=={{header|Perl}}== |
||