Sha256: fef0da3f25d04cdd4ad7358681944744159dcd4024a01500a4f0ef227cd614eb
Contents?: true
Size: 362 Bytes
Versions: 45
Compression:
Stored size: 362 Bytes
Contents
package Grains 1;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(grains_on_square total_grains);
sub grains_on_square {
my ($square) = @_;
if ($square < 1 || $square > 64) {
die 'invalid square';
}
return int 2 ** ($square - 1);
}
sub total_grains {
my $sum;
map {$sum += grains_on_square($_)} 1..64;
return $sum;
}
1;
Version data entries
45 entries across 45 versions & 1 rubygems