From 1431c089150cad1bc1abf6f0b7589b5ae06aed50 Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Sun, 17 Jul 2022 13:43:27 -0400
Subject: DAJ 173

---
 challenge-173/dave-jacoby/perl/ch-1.pl | 23 +++++++++++++++++++++++
 challenge-173/dave-jacoby/perl/ch-2.pl | 20 ++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 challenge-173/dave-jacoby/perl/ch-1.pl
 create mode 100644 challenge-173/dave-jacoby/perl/ch-2.pl

diff --git a/challenge-173/dave-jacoby/perl/ch-1.pl b/challenge-173/dave-jacoby/perl/ch-1.pl
new file mode 100644
index 0000000000..388f4a83ff
--- /dev/null
+++ b/challenge-173/dave-jacoby/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ say postderef signatures state };
+
+my @numbers = ( 5456, 120, 123 );
+
+for my $n (@numbers) {
+    my $str = 'is not an esthetic number ';
+    if ( is_esthetic($n) ) { $str = 'is an esthetic number ' }
+    say qq{  $n $str};
+}
+
+sub is_esthetic($n) {
+    my @n = split //, $n;
+    for my $i ( 1 .. -1 + scalar @n ) {
+        my $j = $i - 1;
+        my $e = abs $n[$i] - $n[$j];
+        return 0 if $e != 1;
+    }
+    return 1;
+}
diff --git a/challenge-173/dave-jacoby/perl/ch-2.pl b/challenge-173/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..854751c70d
--- /dev/null
+++ b/challenge-173/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ say postderef signatures state };
+
+# this looks like a job for iteration
+
+use List::Util qw{ product };
+use Math::BigInt;
+
+# Did I mention that I like Math::BigInt?
+
+my @n = map { Math::BigInt->new($_) } ( 2, 3 );
+
+while ( scalar @n < 10 ) {
+    my $x = Math::BigInt->bone();;
+    push @n, 1 + product @n ;
+}
+say join "\n  ", '', @n;
-- 
cgit