Select Code to Download

[jcw@linux jcw]$ perl q.pl
Benchmark: running max_dkubb1, max_jcwren1, max_jcwren2, max_jcwren3, 
+max_jcwren4, max_tilly, each for at least 3 CPU seconds...
...
max_dkubb1:  5 wallclock secs ( 3.00 usr +  0.00 sys =  3.00 CPU) @ 21
+65.67/s (n=6497)
max_tilly:   5 wallclock secs ( 3.00 usr +  0.00 sys =  3.00 CPU) @ 17
+11.33/s (n=5134)
[jcw@linux jcw]$

#!/usr/local/bin/perl -w

...
  $max = $max < $_ ? $_ : $max for @_;
  return $max;
}