From bdb58061ae1788c2539ae246d3da31d2ead75b22 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Jun 2023 09:54:17 +0000
Subject: Task 2 - Simplifaction

---
 challenge-220/perlboy1967/perl/ch2.pl | 5 ++---
 1 file 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]]);
-- 
cgit