From 394a47cf32035eba88bf1b306a82755a741be108 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 22 Aug 2021 08:52:23 +0200
Subject: solution week 126-1

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

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