Challenge 1

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-141/simon-proctor/raku/ch-1.raku b/challenge-141/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..526bad0135
--- /dev/null
+++ b/challenge-141/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+#| Find the first N positive integers with exactly X divisors
+sub MAIN(
+    \N = 10, #= Number of integers (default 10)
+    \X = 8, #= Number of divisors (default 8)
+) {
+    .say for (1..*).grep(
+        -> $v {
+            (1..$v).grep(
+                -> $d {
+                    $v %% $d
+                } ).elems == X
+        })[^N];
+}