diff options
| -rwxr-xr-x | challenge-281/jo-37/perl/ch-2.pl | 12 |
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 { |