diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:44:51 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:44:51 +0000 |
| commit | 1f0f50c52396be3a1e4ace5c35c736ecbde05db5 (patch) | |
| tree | b24f8b255ae1d2bca066783f8aab51ba232bdca2 | |
| parent | f1ff8d78814306df940b1b31205a14d9c6f3859f (diff) | |
| download | perlweeklychallenge-club-1f0f50c52396be3a1e4ace5c35c736ecbde05db5.tar.gz perlweeklychallenge-club-1f0f50c52396be3a1e4ace5c35c736ecbde05db5.tar.bz2 perlweeklychallenge-club-1f0f50c52396be3a1e4ace5c35c736ecbde05db5.zip | |
Pffff.... Not the at my sharpest....
| -rwxr-xr-x | challenge-108/perlboy1967/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-108/perlboy1967/perl/ch-2.pl b/challenge-108/perlboy1967/perl/ch-2.pl index f13ae7a643..7a241b6215 100755 --- a/challenge-108/perlboy1967/perl/ch-2.pl +++ b/challenge-108/perlboy1967/perl/ch-2.pl @@ -11,13 +11,13 @@ use v5.16; use strict; use warnings; -my @bn = 1; +my @bn = (1); # Using the 'Bell triangle' algorithm my $bnT = [[1]]; -foreach my $bTRidx (1..9) { +foreach my $bTRidx (1..8) { my $prevTRdim = scalar(@{$bnT->[$bTRidx-1]}); # Copy @@ -34,4 +34,4 @@ foreach my $bTRidx (1..9) { } # Print -printf "%s\n", join(' ',@bn); +printf "%s\n", join(' ',1,@bn); |