Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"use List::Util qw/reduce/;
...
 print reduce { $a * $b } 1..6;
"
720