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.
Strange. I don't get this. I have a feeling it's your Perl and/or Tk
version. Try upgrading and see.
--Ala
