diff options
| -rw-r--r-- | challenge-126/wambash/raku/ch-1.raku | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/challenge-126/wambash/raku/ch-1.raku b/challenge-126/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..d2bd6ba9ef --- /dev/null +++ b/challenge-126/wambash/raku/ch-1.raku @@ -0,0 +1,20 @@ +#!/usr/bin/env raku + +sub count-numbers (Int $n) { + 1..* + andthen .map: *.base(9) + andthen .map: *.trans: 1..8 => 2..9 + andthen .toggle: { $_ ≤ $n }\ + andthen .elems +} + +multi MAIN (Bool :test($)!) { + use Test; + is count-numbers(15), 8; + is count-numbers(25), 13; + done-testing; +} + +multi MAIN ($n) { + say count-numbers $n +} |