Merge pull request #5524 from wambash/challenge-week-147

solution week 147

1 files changed, 26 insertions, 0 deletions

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