From f8b59640efe08afb9d3e45a9327fbe52e5d21f3f Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 29 Nov 2021 12:23:14 +0000
Subject: Challenge 141 Solutions (Raku)

---
 challenge-141/mark-anderson/raku/ch-1.raku |  5 +++++
 challenge-141/mark-anderson/raku/ch-2.raku | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 challenge-141/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-141/mark-anderson/raku/ch-2.raku

diff --git a/challenge-141/mark-anderson/raku/ch-1.raku b/challenge-141/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..2a2f90f510
--- /dev/null
+++ b/challenge-141/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+
+use Prime::Factor;
+
+say (^Inf).race.grep({ divisors($_) == 8 })[^10];
diff --git a/challenge-141/mark-anderson/raku/ch-2.raku b/challenge-141/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..b0b3b69fe7
--- /dev/null
+++ b/challenge-141/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 4;
+
+is like-numbers(1234, 2), 9, '1234, 2 = (2 4 12 14 24 34 124 134 234)';
+is like-numbers( 768, 4), 3, ' 768, 4 = (8 76 68)';
+is like-numbers(1008, 2), 6, '1008, 2 = (0 8 10 18 100 108)';
+is like-numbers(7777, 7), 3, '7777, 7 = (7 77 777)';
+
+sub like-numbers($m is copy, \n)
+{
+    $m .= comb;
+    $m.combinations(1..^+$m).map(+*.join)
+                            .grep(* %% n)
+        	            .unique
+			    .Int;
+}
-- 
cgit