diff options
| author | Abigail <abigail@abigail.be> | 2021-04-18 19:43:00 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-04-18 19:43:00 +0200 |
| commit | 1b300cfd72ea76888a56b1a2bc9e96f8bce748a3 (patch) | |
| tree | d6c3f46627919a9afd8b745deaa13cd40095279c /challenge-108 | |
| parent | f228bdabf3df9ab8f0738838e68acd4df91f6061 (diff) | |
| download | perlweeklychallenge-club-1b300cfd72ea76888a56b1a2bc9e96f8bce748a3.tar.gz perlweeklychallenge-club-1b300cfd72ea76888a56b1a2bc9e96f8bce748a3.tar.bz2 perlweeklychallenge-club-1b300cfd72ea76888a56b1a2bc9e96f8bce748a3.zip | |
Small improvements
Diffstat (limited to 'challenge-108')
| -rw-r--r-- | challenge-108/abigail/perl/ch-2.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-108/abigail/perl/ch-2.pl b/challenge-108/abigail/perl/ch-2.pl index d89e32391e..c1f4457967 100644 --- a/challenge-108/abigail/perl/ch-2.pl +++ b/challenge-108/abigail/perl/ch-2.pl @@ -40,11 +40,9 @@ if ($type == $TYPE_PLAIN) { elsif ($type == $TYPE_FETCH) { use OEIS; $, = ", "; - say oeis (110 => 10) + say oeis (110 => $COUNT) } elsif ($type == $TYPE_COMPUTE) { - my $COUNT = 10; - # # Create Bell triangle (See https://en.wikipedia.org/wiki/Bell_triangle) # The Bell numbers (starting from the second one), are on the |