diff options
| author | Andrew Shitov <mail@andreyshitov.com> | 2025-06-23 08:50:10 +0200 |
|---|---|---|
| committer | Andrew Shitov <mail@andreyshitov.com> | 2025-06-23 08:50:10 +0200 |
| commit | 8bcc44355fcd02d7f3558d12ba3d792792adad2d (patch) | |
| tree | 66b541e5ab94db5c43d400dcde5f734ffd7c969b | |
| parent | d7c23d42cf0bc3103d7eab3a8e673ec1c97bace4 (diff) | |
| download | perlweeklychallenge-club-8bcc44355fcd02d7f3558d12ba3d792792adad2d.tar.gz perlweeklychallenge-club-8bcc44355fcd02d7f3558d12ba3d792792adad2d.tar.bz2 perlweeklychallenge-club-8bcc44355fcd02d7f3558d12ba3d792792adad2d.zip | |
extra variable
| -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; |