diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-08-03 18:47:28 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-08-03 18:47:28 -0400 |
| commit | e575d7d7f0f9c22b614c639f08dff9f9804a5066 (patch) | |
| tree | 285b99adad89c13f65d7920092d58f7bbb8e3cc3 | |
| parent | bef2073f00f2525441571a005c640a9cf966ffad (diff) | |
| download | perlweeklychallenge-club-e575d7d7f0f9c22b614c639f08dff9f9804a5066.tar.gz perlweeklychallenge-club-e575d7d7f0f9c22b614c639f08dff9f9804a5066.tar.bz2 perlweeklychallenge-club-e575d7d7f0f9c22b614c639f08dff9f9804a5066.zip | |
Use Lingua::EN::Inflect to handle plural of "zero"
| -rw-r--r-- | challenge-072/walt-mankowski/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-072/walt-mankowski/perl/ch-1.pl b/challenge-072/walt-mankowski/perl/ch-1.pl index dc4efbd0fd..d211135385 100644 --- a/challenge-072/walt-mankowski/perl/ch-1.pl +++ b/challenge-072/walt-mankowski/perl/ch-1.pl @@ -3,6 +3,7 @@ use strict; use warnings; use feature qw(:5.32); use experimental qw(signatures); +use Lingua::EN::Inflect qw(PL); # TASK #1 › Trailing Zeroes # Submitted by: Mohammad S Anwar @@ -41,5 +42,5 @@ sub num_trailing_zeros($n) { my $n = shift @ARGV; my $f = fact($n); my $z = num_trailing_zeros($f); -say "$n as \$N! = $f has $z trailing zero(s)"; +say "$n as \$N! = $f has $z trailing ", PL("zero", $z); |