Range expansion: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add APL) |
||
Line 388:
-6,-3,-2,-1,3,4,5,7,8,9,10,11,14,15,17,18,19,20
</pre>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang APL>range←{
aplnum←{⍎('¯',⎕D)[('-',⎕D)⍳⍵]}
∊{ 0::('Invalid range: ''',⍵,'''')⎕SIGNAL 11
n←aplnum¨(~<\(⊢≠∨\)⍵∊⎕D)⊆⍵
1=≢n:n
s e←n
(s+(⍳e-s-1))-1
}¨(⍵≠',')⊆⍵
}</lang>
{{out}}
<pre> range '-6,-3--1,3-5,7-11,14,15,17-20'
¯6 ¯3 ¯2 ¯1 3 4 5 7 8 9 10 11 14 15 17 18 19 20
range '-6,--3--1,3-5,7-11,14,15,17-20'
Invalid range: '--3--1'
range'-6,--3--1,3-5,7-11,14,15,17-20'
∧
range'-6,-3--1,3-5,11-7,14,15,17-20'
Invalid range: '11-7'
range'-6,-3--1,3-5,11-7,14,15,17-20'
∧</pre>
=={{header|AppleScript}}==
| |||