From f3ec3359e90e0babee3eb02b5eba04aa70dbc017 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 6 Feb 2022 21:56:46 +0100
Subject: solution week 150

---
 challenge-150/wambash/raku/ch-1.raku | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-150/wambash/raku/ch-1.raku

diff --git a/challenge-150/wambash/raku/ch-1.raku b/challenge-150/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..fd770cef1b
--- /dev/null
+++ b/challenge-150/wambash/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+sub fibonacci-words ($a,$b) {
+    $a, $b, * ~ * ... *.chars > 50
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is +fibonacci-words('1234','5678'), 7;
+    is fibonacci-words('1234','5678').list, <1234 5678 12345678 567812345678 12345678567812345678 56781234567812345678567812345678 1234567856781234567856781234567812345678567812345678>;
+    done-testing;
+}
+
+multi MAIN ($a,$b) {
+    put +fibonacci-words $a,$b
+}
-- 
cgit