Select Code to Download

 #!/usr/bin/perl
 use warnings;
 use strict;

 my $life = new life : 20;

 loop { $life.display() }

 class life
 {

  has Int          $.count;
  has Int          $.dimension;
  has Array of Bit @.grid;

  method BUILD(Int $dimension)
  {
    $.count = 0;
    $.max = $dimension - 1;

    my Array of Bit @.grid is dim($dimension,$dimension)
                           is default(0);

    @grid[$dimension / 2 - 1][$dimension / 2] = 1;
    @grid[$dimension / 2 - 1][$dimension / 2 + 1] = 1;
    @grid[$dimension / 2][$dimension / 2] = 1;
    @grid[$dimension / 2][$dimension / 2 - 1] = 1;
    @grid[$dimension / 2 + 1][$dimension / 2] = 1;

    @.grid = @grid;
  }

  sub iterate (&block)
  {

    for 0..$.max -> $x
    {
...
    }
  }

  method calculate() is private
  {
    my @newgrid;
    iterate
    {

      my $live = sum(@.grid[$^x-1..$^x+1][$^y-1..$^y+1]);
      @newgrid[$^x][$^y] =  $live==2 && @.grid[$^x][$^y]
...
      print "\n" if $^x == $.max;
    }
    print "\n";

    print "Turn $(++$.count), press enter to continue or ctl-c to quit
+;

    <$*IN>;

   .calculate();
  }
}