Merge pull request #9223 from 0rir/246

246

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-246/0rir/raku/ch-1.raku b/challenge-246/0rir/raku/ch-1.raku
new file mode 100644
index 0000000000..b200e393bd
--- /dev/null
+++ b/challenge-246/0rir/raku/ch-1.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉ ≡ ≢ «␤ » ∴
+use v6;
+use Test;
+
+=begin comment
+
+246-1: 6 out of 49
+Submitted by: Andreas Voegele
+6 out of 49 is a German lottery.
+
+Write a script that outputs six unique random integers from the range 1 to 49.
+
+Output
+3
+10
+11
+22
+38
+49
+=end comment
+
+my @l = 1 … 6;
+say "Output:";
+.say for (1…49).pick( 6);
+exit;
+
diff --git a/challenge-246/0rir/raku/recur.raku b/challenge-246/0rir/raku/recur.raku
new file mode 100755
index 0000000000..1f0506679c
--- /dev/null
+++ b/challenge-246/0rir/raku/recur.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉ ≡ ≢ «␤ » ∴
+use v6;
+
+sub MAIN( *@in ) {
+    my ($p, $q, @a) = @in».Int;
+
+    for ^3 {
+        @a.push: $p × @a[*-2] + $q × @a[*-1];
+    }
+
+    say "P $p   Q $q   Ary:  @a.raku()";
+}
+