Sha256: 9390b0d4dea1791589661652f8ce8a6c75da00455e83f758dbcb5021ef3c4a59

Contents?: true

Size: 351 Bytes

Versions: 323

Compression:

Stored size: 351 Bytes

Contents

package Example;

use strict;
use warnings;

use bigint;
use List::Util qw(sum);

sub square {
    (get_square($_[0]))[-1]
}

sub get_square {
    my $n = shift;
    
    return 1 if $n == 1;

    my @squares = qw(1);

    push @squares => $squares[-1]*2 for 2..$n;
    
    return @squares;
}

sub total  {
    sum 0, get_square(64);
}

__PACKAGE__;

Version data entries

323 entries across 323 versions & 1 rubygems

Version Path
trackler-2.2.1.105 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.104 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.103 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.102 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.101 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.100 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.99 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.98 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.97 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.96 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.95 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.94 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.93 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.92 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.91 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.90 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.89 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.88 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.87 tracks/perl5/exercises/grains/Example.pm
trackler-2.2.1.86 tracks/perl5/exercises/grains/Example.pm