From 6cdf28ef8ccc58039119ff89ce96c23f0e07d549 Mon Sep 17 00:00:00 2001 From: Jan Krňávek Date: Sat, 25 Nov 2023 18:04:45 +0100 Subject: solutions week 244 --- challenge-244/wambash/raku/ch-1.raku | 20 ++++++++++++++++++++ challenge-244/wambash/raku/ch-2.raku | 19 +++++++++++++++++++ 2 files changed, 39 insertions(+) create mode 100644 challenge-244/wambash/raku/ch-1.raku create mode 100644 challenge-244/wambash/raku/ch-2.raku diff --git a/challenge-244/wambash/raku/ch-1.raku b/challenge-244/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..3d8dc55b1f --- /dev/null +++ b/challenge-244/wambash/raku/ch-1.raku @@ -0,0 +1,20 @@ +#!/usr/bin/env raku + +sub count-smaller (+nums) { + nums.map: { + $_ X> nums + andthen .sum + } +} + +multi MAIN (Bool :test($)!) { + use Test; + is count-smaller(8,1,2,2,3),(4,0,1,1,3); + is count-smaller(6,5,4,8),(2,1,0,3); + is count-smaller(2,2,2),(0,0,0); + done-testing; +} + +multi MAIN (+nums) { + put count-smaller nums +} diff --git a/challenge-244/wambash/raku/ch-2.raku b/challenge-244/wambash/raku/ch-2.raku new file mode 100644 index 0000000000..833666737e --- /dev/null +++ b/challenge-244/wambash/raku/ch-2.raku @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +sub group-hero (+nums) { + nums + andthen .combinations + andthen .skip + andthen .map: { .max² * .min }\ + andthen .sum +} + +multi MAIN (Bool :test($)!) { + use Test; + is group-hero(2,1,4),141; + done-testing; +} + +multi MAIN (+nums) { + say group-hero nums +} -- cgit