Range expansion: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(added RPL) |
||
Line 3,890: | Line 3,890: | ||
<pre> |
<pre> |
||
[-6, -3, -2, -1, 3, 4, 5, 7, 8, 9, 10, 11, 14, 15, 17, 18, 19, 20] |
[-6, -3, -2, -1, 3, 4, 5, 7, 8, 9, 10, 11, 14, 15, 17, 18, 19, 20] |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|RPL|HP48-R}} |
|||
« → in |
|||
« <span style="color:grey">''@ Tokenizing the string''</span> |
|||
"{" 1 in SIZE '''FOR''' j |
|||
in j DUP SUB |
|||
'''IF''' DUP "-" == '''THEN''' |
|||
'''IF''' in j 1 - DUP SUB "0" ≥ '''THEN''' DROP " TO " '''END''' |
|||
'''END''' |
|||
+ |
|||
'''NEXT''' |
|||
<span style="color:grey">''@ Expanding ranges''</span> |
|||
OBJ→ 'in' STO { } |
|||
1 in SIZE '''FOR''' j |
|||
in j GET |
|||
'''IF''' DUP 'TO' SAME '''THEN''' |
|||
DROP « n » 'n' in j 1 - GET 1 + in 'j' INCR GET 1 SEQ |
|||
'''END''' |
|||
+ |
|||
'''NEXT''' |
|||
» » '<span style="color:blue">RNG→</span>' STO |
|||
"-6,-3--1,3-5,7-11,14,15,17-20" <span style="color:blue">RNG→</span>{{out}} |
|||
<pre> |
|||
1: { -6 -3 -2 -1 3 4 5 7 8 9 10 11 14 15 17 18 19 20 } |
|||
</pre> |
</pre> |
||