Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"use feature 'state';
...
'2,3,5,6,7,9,11,12,13,14,16,17,19'

'2,3,5-7,9,11-14,16,17,19'
  2. or download this
    $s =~ s{
  (?<! \d) ($n)   (?{   order($^N) })
  (?: $sep ($n) (?(?{ ! order($^N) }) (*F))){2,}
  }
  {$1-$2}xmsg;
  3. or download this
    sub order {
  state $p = 0;
...
  (?: $sep ($n)  (?(?{ ! order() }) (*F))){2,}
  }
  {-$^N}xmsg;