Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my @change         = (1.15, -0.1, 5.4, 1.03, 1.15, -0.241);
...
"
5 keys in hash (oops...)
sum == 1866.16 (?)
  2. or download this
    >perl -wMstrict -le
"use List::Util qw(sum);
...
 print qq{sum == $sum};
"
sum == 1406.16