Merge pull request #9087 from librasteve/master

solution for 243

2 files changed, 34 insertions, 0 deletions

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(.<nums>) 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(.<nums>) for @tests;