Select Code to Download

Attacca Quartet:1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,22,23
+,24,25,26,27,28
John Patitucci:1,2,3,5,8,11,12,13,14,15,16,17,19,25,26,27,28
Roomful of Teeth:1,3,5,7,9,12,14,16,19,21,24,26,28
Sō Percussion:1,3,4,5,6,7,8,11,12,13,14,15,16,18,19,21,22,23,24,2
+5,26,27,28

Attacca Quartet:1-8,10-20,22-28
John Patitucci:1-3,5,8,11-17,19,25-28
Roomful of Teeth:1,3,5,7,9,12,14,16,19,21,24,26,28
Sō Percussion:1,3-8,11-16,18-19,21-28

#!/usr/bin/perl -wp
1 while s/-(\d+),(??{1+$1})-/-/
    or s/-(\d+),((??{1+$1}))\b/-$2/
    or s/\b(\d+),(??{1+$1})-/$1-/
    or s/\b(\d+),((??{1+$1}))\b/$1-$2/;

perl -pe 'chomp; $_ = join(",", sort { $a <=> $b } split /,/) . "\n"'