From 26b6db21e84648652c374d46c5a9c7de5e862e17 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Sun, 16 Aug 2020 22:36:01 -0600 Subject: ch-1.raku --- challenge-074/mark-anderson/raku/ch-1.raku | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 challenge-074/mark-anderson/raku/ch-1.raku diff --git a/challenge-074/mark-anderson/raku/ch-1.raku b/challenge-074/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..f1bf76d679 --- /dev/null +++ b/challenge-074/mark-anderson/raku/ch-1.raku @@ -0,0 +1,21 @@ +subset IntArray of Array where .all ~~ Int; + +subset NonEmptyIntArray of IntArray where .elems > 0; + +unit sub MAIN(*@integers where * ~~ NonEmptyIntArray); + +my $bag = bag @integers; + +my ($k, $v) = $bag.maxpairs.first.kv; + +my $t = $bag.total; + +if $v <= $t div 2 { + say "-1 as none of the elements appears more than floor($t/2)." +} + +else { + my $s = do if $v == 1 { q{} } else { "s" } + + say "$k, as $k appears $v time$s in the list which is more than floor($t/2)." +} -- cgit