Re: Anonymous Subroutine

[NetWallah]

use strict;
use warnings;

my $n = shift or die "Need 'n' as param";

my $anon_sub = sub{
    my $count=shift @_;
    my $sum_sqares=0;
    for my $i(1..$count){
        $sum_sqares += $i**2;
    }
    return $sum_sqares;
    }; # CLose anon sub

print "N=$n, sum squares=", $anon_sub->($n),"\n";

Update: See BillKSmith's (++) More algebra-savvy, and faster solution below.

[mimiv89]

Thank you so much this worked perfectly.