diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2024-08-10 09:27:19 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2024-08-10 09:27:19 +0200 |
| commit | 160fcbe6b60cfab3f473b461b0028b7be696ca20 (patch) | |
| tree | fa614540153a065e0ad4f284ff30e68774909bff | |
| parent | 6b8ba9cc04b98a6f2b34ebc93eff8f9047a204ff (diff) | |
| download | perlweeklychallenge-club-160fcbe6b60cfab3f473b461b0028b7be696ca20.tar.gz perlweeklychallenge-club-160fcbe6b60cfab3f473b461b0028b7be696ca20.tar.bz2 perlweeklychallenge-club-160fcbe6b60cfab3f473b461b0028b7be696ca20.zip | |
distinguish walks from paths
| -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 { |