From 80c7aaa118fea1298874620db78aaa163e5d4ee9 Mon Sep 17 00:00:00 2001
From: Scimon <simon.proctor@gmail.com>
Date: Mon, 25 Oct 2021 10:36:26 +0100
Subject: Challenge 1

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

diff --git a/challenge-136/simon-proctor/raku/ch-1.raku b/challenge-136/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..71ac8237ac
--- /dev/null
+++ b/challenge-136/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/env raku
+
+#| Given to Integers m and n find if they are friendly numbers
+sub MAIN( UInt \m, UInt \n ) {
+    my \v = m gcd n;
+    (1,2,* * 2...* > v).first(* == v).Bool.Int.say;
+}
-- 
cgit