diff options
| -rwxr-xr-x | challenge-069/jo-37/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-069/jo-37/perl/ch-2.pl b/challenge-069/jo-37/perl/ch-2.pl index 80ccc6f05f..a8e5dd02e8 100755 --- a/challenge-069/jo-37/perl/ch-2.pl +++ b/challenge-069/jo-37/perl/ch-2.pl @@ -115,7 +115,7 @@ sub sn { # check alternative building rules for (1 .. 5) { is sn($_), $S[$_], "S$_ doubling rule"; - is sn_build(sub{$_}, $_, $_), $S[$_], "S$_ single iteration"; + is sn_build(sub{0}, $_ + 1, $_), $S[$_], "S$_ single iteration"; } # Finally: task 2: Generate S30. |