diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-10-06 19:40:07 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-10-06 19:40:07 -0400 |
| commit | 6c58dba68670dfc7c703bb4a39455196eb3dbd97 (patch) | |
| tree | 2182ed97edf294eb5d9bc148173e4f6e183070bc | |
| parent | 4b6202a6507cb1e1e3854fa643fc25714dc930a2 (diff) | |
| download | perlweeklychallenge-club-6c58dba68670dfc7c703bb4a39455196eb3dbd97.tar.gz perlweeklychallenge-club-6c58dba68670dfc7c703bb4a39455196eb3dbd97.tar.bz2 perlweeklychallenge-club-6c58dba68670dfc7c703bb4a39455196eb3dbd97.zip | |
cleaned up the code a bit
| -rw-r--r-- | challenge-081/walt-mankowski/perl/ch-1.pl | 5 |
1 files 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; } } |