Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my @sets = map { /\[(\d+)\.\.(\d+)\]/ ? $1 .. $2 : $_ } split ' ', <$f
+h>;

use Data::Dump 'dd'; dd \@sets;

Select or download this
```
[0 .. 4, 9, 5 .. 8]
```