Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use 5.014;
...
   my $max = ( sort { $b <=> $a } @array )[0];
   return $max;
}
  2. or download this
    max_acm is 42
./perl5/lib/perl5/Prompt/Timeout.pm is ./perl5/lib/perl5/Prompt/Timeou
+t.pm
max_acm is 42
...
ctime is ok
mtime is ok
max_acm is 1465162519