use strict; use warnings; my $number = $ARGV[0]; my $sum_of_squares = sub{ my $n = shift; return $n * ($n + 1) * (2*$n +1) / 6; }; print $sum_of_squares->($number);
This formula is available in many places. I first found it at https://brilliant.org/wiki/sum-of-n-n2-or-n3/.
In reply to Re: Anonymous Subroutine
by BillKSmith
in thread Anonymous Subroutine
by mimiv89
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |