From 82e314c69da9798b8040d6e0ab3606c56835c97e Mon Sep 17 00:00:00 2001 From: Daniel Mita Date: Sun, 25 Oct 2020 21:35:46 +0000 Subject: Add solution for challenge-083-2 in Raku --- challenge-083/daniel-mita/raku/ch-2.raku | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 challenge-083/daniel-mita/raku/ch-2.raku diff --git a/challenge-083/daniel-mita/raku/ch-2.raku b/challenge-083/daniel-mita/raku/ch-2.raku new file mode 100755 index 0000000000..ed5730718d --- /dev/null +++ b/challenge-083/daniel-mita/raku/ch-2.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku + +sub MAIN( + *@positive-ints where { .elems > 0 && .all ~~ Int && .all > 0 } + --> Nil +) { + @( + @positive-ints.combinations(1..*) + .grep( *.sum ≤ @positive-ints.sum / 2 ) + .sort({ $^b.sum <=> $^a.sum || $a.elems <=> $b.elems }) + )[0].elems.say; +} -- cgit