[Perl-AI] Game of Life

Gidon writes:
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);
}
Actually, that's what I had at the beginning :)
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.