Help for this page

Select Code to Download


  1. or download this
    my ($longest) = reduce { length($a) >= length($b) ? $a : $b  } /
   (
...
      )
   )
/xg;
  2. or download this
    my ($longest) = reduce { length($a) >= length($b) ? $a : $b  }
   /
...
         )+
      )
   /xg;
  3. or download this
    my $longest =
   max
...
} else {
    $longest = /[0-9]/ ? 1 : 0;
}