matrix.raku

use Math::Matrix;

my Int @by_age[9] = (0) xx 9;
for "input.txt".IO.split(",") -> $line {
  @by_age[0+$line] += 1;
}

my $mat = Math::Matrix.new([
  < 0 0 0 0 0 0 1 0 1 >,
  < 1 0 0 0 0 0 0 0 0 >,
  < 0 1 0 0 0 0 0 0 0 >,
  < 0 0 1 0 0 0 0 0 0 >,
  < 0 0 0 1 0 0 0 0 0 >,
  < 0 0 0 0 1 0 0 0 0 >,
  < 0 0 0 0 0 1 0 0 0 >,
  < 0 0 0 0 0 0 1 0 0 >,
  < 0 0 0 0 0 0 0 1 0 >,
]);

my $mat80 = $mat ** 80;
my $mat256 = $mat ** 256;

my $in = Math::Matrix.new( [ @by_age, ] );

say ($in dot $mat80).list.sum;
say ($in dot $mat256).list.sum;