Help for this page

Select Code to Download


  1. or download this
    % bencher -m AcmePERLANCARTestPerformance
Use of uninitialized value $max in numeric le (<=) at lib/Bencher/Form
+atter/ScaleTime.pm line 28.
  2. or download this
    my ($min, $max) = minmax(map {$_->{time}} @{$envres->[2]});

my ($unit, $factor);
if ($max <= 1.5e-6) {
  3. or download this
    my @list = map {$_->{time}} @{$envres->[2]};
my ($min, $max) = minmax(@list);

...
  4. or download this
    % perl -MList::MoreUtils=minmax -MData::Dump -e'for(1..20) { my ($min,
+ $max) = minmax(sprintf("%.4g", rand())); dd ($min, $max) }'
(0.9403, 0.9403)
(0.2669, 0.2669)
...
(0.6433, 0.6433)
(0.02692, 0.02692)
(0.157, undef)