diff options
| -rw-r--r-- | challenge-327/ash/raku/ch-2a.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-327/ash/raku/ch-2a.raku b/challenge-327/ash/raku/ch-2a.raku index b9469d30e8..5da56beb51 100644 --- a/challenge-327/ash/raku/ch-2a.raku +++ b/challenge-327/ash/raku/ch-2a.raku @@ -6,8 +6,7 @@ say mad(1, 3, 7, 11, 15); # [(1 3)] say mad(1, 5, 3, 8); # [(1 3) (5 3)] sub mad(*@data) { - my @pairs = @data.combinations(2); - my $classification = @pairs.classify: {abs(.[0] - .[1])}; + my $classification = @data.combinations(2).classify: {abs(.[0] - .[1])}; my $min_diff = $classification.keys.min; return ($classification.first: *.key == $min_diff).value; |