diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-07-27 23:35:21 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-07-27 23:35:21 +0000 |
| commit | 337606a8afa9a655a3c1a4dc404714d3de6339ba (patch) | |
| tree | 1ff3d09f7426555abb28b943622695b3ab1230e6 | |
| parent | edb52ce397db24e01e8e4ddd9a17a2e6a6192143 (diff) | |
| download | perlweeklychallenge-club-337606a8afa9a655a3c1a4dc404714d3de6339ba.tar.gz perlweeklychallenge-club-337606a8afa9a655a3c1a4dc404714d3de6339ba.tar.bz2 perlweeklychallenge-club-337606a8afa9a655a3c1a4dc404714d3de6339ba.zip | |
Cleanup and slightly shorter version
| -rwxr-xr-x | challenge-123/perlboy1967/perl/ch-2.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/challenge-123/perlboy1967/perl/ch-2.pl b/challenge-123/perlboy1967/perl/ch-2.pl index 15a7207ac2..926188c449 100755 --- a/challenge-123/perlboy1967/perl/ch-2.pl +++ b/challenge-123/perlboy1967/perl/ch-2.pl @@ -45,7 +45,6 @@ sub areSquarePoints(\@) { # then the distance between one point and the other three # will give 2 identical and on other foreach my $i (0 .. 3) { - my @d; foreach my $j (0 .. 3) { next if ($i == $j); $dP{sqrt(($ar->[$i][0]-$ar->[$j][0])**2 + @@ -55,8 +54,6 @@ sub areSquarePoints(\@) { my @v = sort { $b <=> $a } values %dP; - return 1 if ($v[0] == 8 && $v[1] == 4); - - return 0; + return ($v[0] == 8 && $v[1] == 4 ? 1 : 0); } |