Merge pull request #10571 from jo-37/contrib

distinguish walks from paths

1 files changed, 6 insertions, 6 deletions

diff --git a/challenge-281/jo-37/perl/ch-2.pl b/challenge-281/jo-37/perl/ch-2.pl
index 17ce3fed1e..2ab4600d02 100755
--- a/challenge-281/jo-37/perl/ch-2.pl
+++ b/challenge-281/jo-37/perl/ch-2.pl
@@ -75,18 +75,18 @@ sub knights_move {
 }
 
 sub diameter {
-    my $paths = zeroes adj(0);
+    my $walks = zeroes adj(0);
     for (0 .. N**2 - 1) {
-        $paths += adj($_);
-        return $_ if all $paths;
+        $walks += adj($_);
+        return $_ if all $walks;
     }
     'inf';
 }
 
 sub not_within ($n) {
-    my $paths = zeros adj(0);
-    $paths += adj($_) for 0 .. $n;
-    whichND !$paths->splitdim(1, N)->splitdim(0, N);
+    my $walks = zeros adj(0);
+    $walks += adj($_) for 0 .. $n;
+    whichND !$walks->splitdim(1, N)->splitdim(0, N);
 }
 
 sub analyze {