From aa6adf80c7dd90a730f5b6463fb614172a15fbe1 Mon Sep 17 00:00:00 2001 From: Jan Krňávek Date: Fri, 5 Jul 2024 11:25:13 +0200 Subject: solutions week 276 --- challenge-276/wambash/raku/ch-1.raku | 21 +++++++++++++++++++++ challenge-276/wambash/raku/ch-2.raku | 19 +++++++++++++++++++ 2 files changed, 40 insertions(+) create mode 100644 challenge-276/wambash/raku/ch-1.raku create mode 100644 challenge-276/wambash/raku/ch-2.raku diff --git a/challenge-276/wambash/raku/ch-1.raku b/challenge-276/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..88bde218dd --- /dev/null +++ b/challenge-276/wambash/raku/ch-1.raku @@ -0,0 +1,21 @@ + #!/usr/bin/env raku + +sub complete-day (+hours) { + hours + andthen .combinations: 2 + andthen .grep: *.sum %% 24 + andthen .elems +} + +multi MAIN (Bool :test($)!) { + use Test; + is complete-day(12,12,30,24,24),2; + is complete-day(12,12,36,24,24),4; + is complete-day(72,48,24,5),3; + is complete-day(12,18,24),0; + done-testing; +} + +multi MAIN (+hours) { + say complete-day hours +} diff --git a/challenge-276/wambash/raku/ch-2.raku b/challenge-276/wambash/raku/ch-2.raku new file mode 100644 index 0000000000..e0ffe19624 --- /dev/null +++ b/challenge-276/wambash/raku/ch-2.raku @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +sub maximum-frequency (+ints) { + ints + andthen .Bag + andthen .max: :with( *.value ), :v + andthen .sum +} + +multi MAIN (Bool :test($)!) { + use Test; + is maximum-frequency(1,2,2,4,1,5),4; + is maximum-frequency(1,2,3,4,5),5; + done-testing; +} + +multi MAIN (+ints) { + say maximum-frequency ints +} -- cgit