Challenge 1

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-082/simon-proctor/raku/ch-1.raku b/challenge-082/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..3215cb071a
--- /dev/null
+++ b/challenge-082/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given two positive integers print the common factors (not including the values themselves).
+sub MAIN ( UInt $M, UInt $N ) {
+    say "({(fac($M) (&) fac($N)).keys.sort.join(', ')})"
+}
+
+sub fac( UInt $v ) {
+    (1..^$v).grep( $v %% * )
+}