Range expansion: Difference between revisions
added RPL
m (→{{header|Wren}}: Changed to Wren S/H) |
(added RPL) |
||
Line 3,890:
<pre>
[-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>
| |||