diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-07-21 23:20:01 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-07-21 23:20:01 +0200 |
| commit | 738e87c419e587ca22e59ac3c36124f967d77dfb (patch) | |
| tree | a35a52b99f318798c9e11daa77d63aa63a6fdf89 /challenge-069/jo-37 | |
| parent | 23f573383e7890d6515bb6f443a693b8bfcf9e0d (diff) | |
| download | perlweeklychallenge-club-738e87c419e587ca22e59ac3c36124f967d77dfb.tar.gz perlweeklychallenge-club-738e87c419e587ca22e59ac3c36124f967d77dfb.tar.bz2 perlweeklychallenge-club-738e87c419e587ca22e59ac3c36124f967d77dfb.zip | |
correct single iteration rule
Diffstat (limited to 'challenge-069/jo-37')
| -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. |