Merge pull request #4998 from wambash/challenge-week-133

solution week 133-1

1 files changed, 17 insertions, 0 deletions

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
+}