From 7470b95c14424a2c1569467f96c1e86476e86692 Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Wed, 28 Jul 2021 15:50:43 -0400
Subject: Fixed Ch-1

---
 challenge-123/dave-jacoby/perl/ch-1.pl | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/challenge-123/dave-jacoby/perl/ch-1.pl b/challenge-123/dave-jacoby/perl/ch-1.pl
index 5b61a4aadc..4707fbb6c5 100644
--- a/challenge-123/dave-jacoby/perl/ch-1.pl
+++ b/challenge-123/dave-jacoby/perl/ch-1.pl
@@ -15,20 +15,24 @@ GetOptions( 'n=i' => \$n, );
 carp 'Bad Input' unless $n > 0;
 
 my $u = get_ugly($n);
-say "Input:  \$n = $n";
-say "Output: $u";
+say "Input:  \$n = $n  Output: $u";
 
 sub get_ugly ( $n ) {
-    return 1 if $n == 1;
-    my $c = 1;
+    my $c = 0;
     my $u = 0;
     while (1) {
         $u++;
-        my $f = 0;
-        $f = 1 if $u % 2 == 0;
-        $f = 1 if $u % 3 == 0;
-        $f = 1 if $u % 5 == 0;
-        $c++      if $f;
+        my $f = is_ugly($u) ? 1 : 0;
+        $c++ if $f;
         return $u if $n == $c;
     }
 }
+
+sub is_ugly( $n ) {
+    for my $i ( 2, 3, 5 ) {
+        while ( $n % $i == 0 ) {
+            $n /= $i;
+        }
+    }
+    return $n == 1 ? 1 : 0;
+}
-- 
cgit 


From 22093555a5102af585e7b00ea2ca01f037653055 Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Wed, 28 Jul 2021 15:54:47 -0400
Subject: Create blog2.txt

---
 challenge-123/dave-jacoby/blog2.txt | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 challenge-123/dave-jacoby/blog2.txt

diff --git a/challenge-123/dave-jacoby/blog2.txt b/challenge-123/dave-jacoby/blog2.txt
new file mode 100644
index 0000000000..29cd3c9ddb
--- /dev/null
+++ b/challenge-123/dave-jacoby/blog2.txt
@@ -0,0 +1 @@
+https://jacoby.github.io/2021/07/28/as-richard-thompson-sang-i-misunderstood.html
\ No newline at end of file
-- 
cgit