diff options
| -rw-r--r-- | challenge-124/mark-anderson/raku/ch-2.raku | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/challenge-124/mark-anderson/raku/ch-2.raku b/challenge-124/mark-anderson/raku/ch-2.raku index 6762d2c45e..d2e8fbe417 100644 --- a/challenge-124/mark-anderson/raku/ch-2.raku +++ b/challenge-124/mark-anderson/raku/ch-2.raku @@ -7,12 +7,11 @@ sub tug-of-war(+$list) { my $n = $list.elems div 2; - my %h = $list.combinations($n).map(-> @a + my %h = $list.combinations($n).map(-> $a { - my @b = ($list (-) @a).keys; - - abs(@b.sum - @a.sum) => @a ~ ' ' ~ @b; + my $b = ($list (-) $a).keys.List; + abs($b.sum - $a.sum) => ($a, $b); }); - .head($n), .tail(* - $n) with %h.min.value.split(/\s/).cache; + %h.min.value; } |