That's fun, thanks.
Substitute the 'run' function with this
if you want it to work one generation at a time.
sub run {
my ($array, $rules, $rows, $cols, $size, $c) = @_;
&step( $array, $rules, $rows, $cols, $size, $c);
}
P.S. Without the above modification I got this error.
Deep recursion on subroutine "Tk::After::repeat" at lif
e.pl line 150.
Deep recursion on subroutine "main::step" at /usr/lib/p
erl5/site_perl/5.005/i386-linux/Tk/After.pm line 73.
Ala Qumsieh wrote:
>
> Hey all,
>
> I hacked a very quick Perl/Tk version of Conway's Game of Life and thought
> some of you might enjoy it.
>
> --Ala
