Select Code to Download

Select or download this
```
my $life = new life: 20;
```
Select or download this
```
loop { $life.display() }
```


class life
...
  has Int          $.count;
  has Int          $.max;
  has Array of Bit @.grid;

Select or download this
```
  method BUILD(Int $dim)
```

Select or download this

  {
    $.count = 0;
    $.max = $dimension-1;
    my Array of Bit @grid is dim($dim,$dim) is default(0);

Select or download this

    @grid[$dim / 2 - 1][$dim / 2    ] = 1;
    @grid[$dim / 2 - 1][$dim / 2 + 1] = 1;
...
    @grid[$dim / 2    ][$dim / 2 - 1] = 1;
    @grid[$dim / 2 + 1][$dim / 2    ] = 1;
    @.grid := @grid;

Select or download this
```
  }

  sub iterate (&block)
```
Select or download this
```
  {
    for 0..$.max -> $x
```

Select or download this

   {
      for 0..$.max -> $y 
...
      @newgrid[$^x][$^y] =  $live==2 && @.grid[$^x][$^y] 
                         || $live==3;
    }

Select or download this

    @.grid = @newgrid;
  }
...
    print "\n";
    print "Turn $(++$.count), press enter to continue or ctl-c to quit
+;
    <$*IN>;

Select or download this
```
    .calculate();
  }
}
```