diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-07-21 22:24:21 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-21 22:24:21 +0100 |
| commit | 9f10f646e47f493ce2611b007b9597201b68368f (patch) | |
| tree | a35a52b99f318798c9e11daa77d63aa63a6fdf89 | |
| parent | 23f573383e7890d6515bb6f443a693b8bfcf9e0d (diff) | |
| parent | 738e87c419e587ca22e59ac3c36124f967d77dfb (diff) | |
| download | perlweeklychallenge-club-9f10f646e47f493ce2611b007b9597201b68368f.tar.gz perlweeklychallenge-club-9f10f646e47f493ce2611b007b9597201b68368f.tar.bz2 perlweeklychallenge-club-9f10f646e47f493ce2611b007b9597201b68368f.zip | |
Merge pull request #1967 from jo-37/contrib
correction to challenge 069/1: correct single iteration rule
| -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. |