Merge pull request #5545 from oWnOIzRi/week148

add solution week 148 task 1 in perl

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 $_;
+}