diff options
| -rw-r--r-- | challenge-133/wambash/raku/ch-1.raku | 17 |
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 +} |