Range expansion: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) m (→{{header|11l}}) |
|||
Line 2,429:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>rangeexpand[ rng_ ] := Module[ { step1 },
step1 = StringSplit[StringReplacePart[rng,"S",StringPosition[ rng,DigitCharacter~~"-"] /. {x_,y_} -> {y,y}],","];
| |||