From eb53bf59d15e4d9df4bcaf59f500d38cccdb1c3a Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 16 Jan 2022 15:56:34 +0100
Subject: solution week 147

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

diff --git a/challenge-147/wambash/raku/ch-1.raku b/challenge-147/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..9f4e18d616
--- /dev/null
+++ b/challenge-147/wambash/raku/ch-1.raku
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+constant @primes = (
+    ^Inf
+    andthen .grep: *.is-prime
+);
+
+
+sub truncable-prime ($n) {
+   $n.chars == $n.match: / <[1..9]>+ $ <?{$/.is-prime}> /,:ov
+}
+
+constant @truncable-primes = (
+    @primes
+    andthen .grep: *.&truncable-prime
+);
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is truncable-prime(9137), True;
+    is @truncable-primes.head(20), (2, 3, 5, 7, 13, 17, 23, 37, 43, 47, 53, 67, 73, 83, 97, 113, 137, 167, 173, 197);
+    done-testing;
+}
+
+multi MAIN ( $n=20 ) {
+    put @truncable-primes.head($n)
+}
-- 
cgit