Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wl
use strict;
...
    $h{$_}++ for @a[(eval $_)];
    print join " ", sort {$a<=>$b} keys %h;
}

Select or download this
```
1 3 5 6 7
1 2 3 4 5
1 2 3 4 5
```