From 8c3b72aa23fe2ca60dbcf176dca5b7f9548673d4 Mon Sep 17 00:00:00 2001
From: Scimon <simon.proctor@gmail.com>
Date: Mon, 29 Nov 2021 09:52:27 +0000
Subject: Challenge 1

---
 challenge-141/simon-proctor/raku/ch-1.raku | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 challenge-141/simon-proctor/raku/ch-1.raku

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