diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-02 14:00:06 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-02 14:00:06 -0600 |
| commit | bd4e829562e4b99ec8dd8f649b9cc82f7907ede3 (patch) | |
| tree | 82a5df15c40d11ef83ce59d65ba6c288c8f00207 | |
| parent | 2853996c0f92eed1f426abd287080d9866d7b169 (diff) | |
| download | perlweeklychallenge-club-bd4e829562e4b99ec8dd8f649b9cc82f7907ede3.tar.gz perlweeklychallenge-club-bd4e829562e4b99ec8dd8f649b9cc82f7907ede3.tar.bz2 perlweeklychallenge-club-bd4e829562e4b99ec8dd8f649b9cc82f7907ede3.zip | |
ch-2.raku
| -rw-r--r-- | challenge-124/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-124/mark-anderson/raku/ch-2.raku b/challenge-124/mark-anderson/raku/ch-2.raku index d2e8fbe417..4b75bab216 100644 --- a/challenge-124/mark-anderson/raku/ch-2.raku +++ b/challenge-124/mark-anderson/raku/ch-2.raku @@ -5,9 +5,7 @@ say tug-of-war(10, -15, 20, 30, -25, 0, 5, 40, -5); sub tug-of-war(+$list) { - my $n = $list.elems div 2; - - my %h = $list.combinations($n).map(-> $a + my %h = $list.combinations(+$list div 2).map(-> $a { my $b = ($list (-) $a).keys.List; abs($b.sum - $a.sum) => ($a, $b); |