From f09ff0b5b57f38aa13376ffd3cd5d642c8d75a3b Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Wed, 26 Aug 2020 20:52:46 -0400
Subject: changed to use negative array indexing

I did this in the Python version and it made the code a bit easier to follow
---
 challenge-075/walt-mankowski/perl/ch-1.pl | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'challenge-075')

diff --git a/challenge-075/walt-mankowski/perl/ch-1.pl b/challenge-075/walt-mankowski/perl/ch-1.pl
index 556d2fd271..032d6d598b 100644
--- a/challenge-075/walt-mankowski/perl/ch-1.pl
+++ b/challenge-075/walt-mankowski/perl/ch-1.pl
@@ -30,7 +30,6 @@ my @c = @ARGV;
 my @solutions;
 
 my @cnt = map {0} 0..$#c;
-my $i = $#c;
 while (1) {
     my $val = value(\@c, \@cnt);
     if ($val >= $s) {
@@ -40,17 +39,17 @@ while (1) {
         }
 
         # rotate "odometer"
-        $cnt[$#c] = 0;
-        my $j = $#c - 1;
+        $cnt[-1] = 0;
+        my $j = -2;
         $cnt[$j]++;
-        while ($j >= 0 && value(\@c, \@cnt) > $s) {
+        while ($j >= -@c && value(\@c, \@cnt) > $s) {
             $cnt[$j] = 0;
             $j--;
-            $cnt[$j]++;
+            $cnt[$j]++ if $j >= -@c;
         }
-        last if $j < 0;
+        last if $j < -@c;
     } else {
-        $cnt[$#c]++;
+        $cnt[-1]++;
     }
 }
 
-- 
cgit