From 6c58dba68670dfc7c703bb4a39455196eb3dbd97 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 6 Oct 2020 19:40:07 -0400
Subject: cleaned up the code a bit

---
 challenge-081/walt-mankowski/perl/ch-1.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/challenge-081/walt-mankowski/perl/ch-1.pl b/challenge-081/walt-mankowski/perl/ch-1.pl
index 9a91c9d8db..130a121916 100644
--- a/challenge-081/walt-mankowski/perl/ch-1.pl
+++ b/challenge-081/walt-mankowski/perl/ch-1.pl
@@ -16,8 +16,9 @@ my ($A, $B) = @ARGV;
 my $max_base_len = min(length($A), length($B));
 
 for my $i (1 .. $max_base_len) {
-    if (is_base(substr($A, 0, $i), $A) && is_base(substr($B, 0, $i), $B)) {
-        say substr($A, 0, $i);
+    my $prefix = substr($A, 0, $i);
+    if (is_base($prefix, $A) && is_base($prefix, $B)) {
+        say $prefix;
     }
 }
 
-- 
cgit