Help for this page

Select Code to Download

Select or download this

my @ccond =
    sub {
...
    },
    # ...
);

Select or download this

    $cv = sprintf "%0.2f", $ccond[$cond]->($i);