diff options
| -rw-r--r-- | challenge-148/steven-wilson/perl/ch-01.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-148/steven-wilson/perl/ch-01.pl b/challenge-148/steven-wilson/perl/ch-01.pl new file mode 100644 index 0000000000..28e7f90674 --- /dev/null +++ b/challenge-148/steven-wilson/perl/ch-01.pl @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +# Week 148 Task 1 +# Eban Numbers +# Write a script to generate all Eban Numbers <= 100. +# An Eban number is a number that has no letter ‘e’ in it +# when the number is spelled in English (American or British). + +use strict; +use warnings; +use feature qw/ say /; +use Lingua::EN::Numbers qw/ num2en /; + +my $max = 100; + +say "Eban Numbers <= $max:"; +for ( 1 .. $max ) { + ( num2en($_) =~ /e/i ) ? next : say $_; +} |