From 5a065bc6f744e734ac277d467cf4700441ba1991 Mon Sep 17 00:00:00 2001 From: librasteve Date: Sat, 18 Nov 2023 18:46:38 +0000 Subject: solution for 243 --- challenge-243/librasteve/raku/ch-1.raku | 17 +++++++++++++++++ challenge-243/librasteve/raku/ch-2.raku | 17 +++++++++++++++++ 2 files changed, 34 insertions(+) create mode 100644 challenge-243/librasteve/raku/ch-1.raku create mode 100644 challenge-243/librasteve/raku/ch-2.raku diff --git a/challenge-243/librasteve/raku/ch-1.raku b/challenge-243/librasteve/raku/ch-1.raku new file mode 100644 index 0000000000..026b705bcc --- /dev/null +++ b/challenge-243/librasteve/raku/ch-1.raku @@ -0,0 +1,17 @@ +use Data::Dump::Tree; +use Test; + +my @tests = [ + %( + nums => (1, 3, 2, 3, 1), + ), + %( + nums => (2, 4, 3, 5, 1) + ), +]; + +sub run( @nums ) { + @nums.combinations(2).grep({ .[0] > (2 * .[1]) }).elems +} + +say run(.) for @tests; diff --git a/challenge-243/librasteve/raku/ch-2.raku b/challenge-243/librasteve/raku/ch-2.raku new file mode 100644 index 0000000000..e38bb6d758 --- /dev/null +++ b/challenge-243/librasteve/raku/ch-2.raku @@ -0,0 +1,17 @@ +use Data::Dump::Tree; +use Test; + +my @tests = [ + %( + nums => (2, 5, 9), + ), + %( + nums => (7, 7, 7, 7, 7, 7, 7) + ), +]; + +sub run( @nums ) { + (@nums X, @nums).map( {(.[0] div .[1])}).sum +} + +say run(.) for @tests; -- cgit