diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 09:54:17 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 09:54:17 +0000 |
| commit | bdb58061ae1788c2539ae246d3da31d2ead75b22 (patch) | |
| tree | f6e364217028332be2259bf216a5439a9f512495 | |
| parent | 9d233cd02488658cce74585ba2b02562155bdfec (diff) | |
| download | perlweeklychallenge-club-bdb58061ae1788c2539ae246d3da31d2ead75b22.tar.gz perlweeklychallenge-club-bdb58061ae1788c2539ae246d3da31d2ead75b22.tar.bz2 perlweeklychallenge-club-bdb58061ae1788c2539ae246d3da31d2ead75b22.zip | |
Task 2 - Simplifaction
| -rwxr-xr-x | challenge-220/perlboy1967/perl/ch2.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-220/perlboy1967/perl/ch2.pl b/challenge-220/perlboy1967/perl/ch2.pl index 8dea4cc4a6..c31e23c80e 100755 --- a/challenge-220/perlboy1967/perl/ch2.pl +++ b/challenge-220/perlboy1967/perl/ch2.pl @@ -27,8 +27,6 @@ use Test::Deep qw(cmp_deeply); use List::MoreUtils qw(uniq slide all); use Algorithm::Combinatorics qw(permutations); -use Data::Compare; - sub _areSquareful ($$) { my $s = $_[0] + $_[1]; @@ -45,7 +43,8 @@ sub squareful (\@) { push(@r,$arC) if all {$_} slide {_areSquareful($a,$b)} @$arC; last if (scalar @r && $u); } - sort { Compare($a,$b) } @r; + + return @r; } cmp_deeply([squareful(@{[1,17,8]})],[[1,8,17],[17,8,1]]); |