diff options
| -rw-r--r-- | challenge-108/adam-russell/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-108/adam-russell/perl/ch-2.pl b/challenge-108/adam-russell/perl/ch-2.pl index f27c3658eb..0603718b7d 100644 --- a/challenge-108/adam-russell/perl/ch-2.pl +++ b/challenge-108/adam-russell/perl/ch-2.pl @@ -3,7 +3,7 @@ use warnings; ## # Write a script to display the first 10 Bell Numbers. ## -sub bell{ +sub bell_triangle{ my($n) = @_; my @bell_numbers = ([]); $bell_numbers[0]->[0] = 1; @@ -18,6 +18,6 @@ sub bell{ MINA:{ for my $b (0 .. 9){ - print "B_$b: " . bell($b) . "\n"; + print "B_$b: " . bell_triangle($b) . "\n"; } } |