diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-21 22:31:04 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-21 22:31:04 +0100 |
| commit | 683a52504d67337bc80236b1fa6511e371c84f90 (patch) | |
| tree | 5a65e65095e1b9949021d3097691368e4dad539e | |
| parent | d3965fc6b37187cb94295f17538a843094b2661b (diff) | |
| parent | 9f10f646e47f493ce2611b007b9597201b68368f (diff) | |
| download | perlweeklychallenge-club-683a52504d67337bc80236b1fa6511e371c84f90.tar.gz perlweeklychallenge-club-683a52504d67337bc80236b1fa6511e371c84f90.tar.bz2 perlweeklychallenge-club-683a52504d67337bc80236b1fa6511e371c84f90.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
| -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. |