From dbcb08878a4d6204df3dbfdaaf12ae9f6e0ab30b Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 10 Oct 2021 17:36:42 +0200
Subject: solution week 133-1

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

diff --git a/challenge-133/wambash/raku/ch-1.raku b/challenge-133/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..28ecdf5e88
--- /dev/null
+++ b/challenge-133/wambash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+
+sub integer-square-root ($n) {
+    $n
+    andthen ^∞ .toggle: *² ≤ $n
+    andthen .tail
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is integer-square-root(10),3;
+    is integer-square-root(27),5;
+    is integer-square-root(85),9;
+    is integer-square-root(101),10;
+    done-testing
+}
-- 
cgit