Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    return sum map { $x->[$_] * $y->[$_] } 0 .. $#$x;
}