Merge pull request #5540 from waltman/branch-for-challenge-148

Branch for challenge 148

3 files changed, 32 insertions, 0 deletions

diff --git a/challenge-148/walt-mankowski/perl/.perl-version b/challenge-148/walt-mankowski/perl/.perl-version
new file mode 100644
index 0000000000..04a883217e
--- /dev/null
+++ b/challenge-148/walt-mankowski/perl/.perl-version
@@ -0,0 +1 @@
+5.34.0
diff --git a/challenge-148/walt-mankowski/perl/ch-1.pl b/challenge-148/walt-mankowski/perl/ch-1.pl
new file mode 100644
index 0000000000..5ecf0da316
--- /dev/null
+++ b/challenge-148/walt-mankowski/perl/ch-1.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.34);
+use experimental qw(signatures);
+use Lingua::EN::Numbers qw(num2en);
+
+my @eban = grep { num2en($_) !~ tr/e// } 1..100;
+local $" = ", ";
+say "@eban are the Eban numbers <= 100";
diff --git a/challenge-148/walt-mankowski/perl/ch-2.pl b/challenge-148/walt-mankowski/perl/ch-2.pl
new file mode 100644
index 0000000000..7769483138
--- /dev/null
+++ b/challenge-148/walt-mankowski/perl/ch-2.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.34);
+use experimental qw(signatures);
+
+my $EPS = 1e-6;
+my $THIRD = 1 / 3;
+
+for my $a (1..100) {
+    for my $b (1..100) {
+        for my $c (1..100) {
+            my $t1 = ($a + $b * sqrt($c)) ** $THIRD;
+            my $tmp = $a - $b * sqrt($c);
+            my $t2 = ($tmp >= 0) ? $tmp ** $THIRD : -abs($tmp) ** $THIRD;
+            if (abs($t1 + $t2 - 1) < $EPS) {
+                say "($a, $b, $c) ", $a + $b + $c ;
+            }
+        }
+    }
+}