Contents

unit module Grains:ver<2>;

sub grains-on-square ($number) is export {
  die if $number < 1 or $number > 64;
  2**($number-1);
}

sub total-grains is export {
  my Int $total;
  for  1..64 { $total += grains-on-square($_) }
  $total;
}

Version data entries

83 entries across 83 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/perl6/exercises/grains/Example.pm6
trackler-2.2.1.97	tracks/perl6/exercises/grains/Example.pm6
trackler-2.2.1.96	tracks/perl6/exercises/grains/Example.pm6