Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  print "\n$_";
  print s/\b(\d+)\K,(?=(??{$1+1})\b)/-/gr =~ s/-[\d-]*-/-/gr;
  }
  2. or download this
    
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
...

Has Dashes:1,3-6,7-9,11,13-20,21,22-25,30,33-34,351,520
Has Dashes:1,3-9,11,13-25,30,33-34,351,520