I has always believed that I'm good at solving math problems

Turns out I has been wrong all the time. And I'm not alone.

1 files changed, 13 insertions, 0 deletions

diff --git a/codechef/matchs.scm b/codechef/matchs.scm
new file mode 100644
index 0000000..2897b6d
--- /dev/null
+++ b/codechef/matchs.scm
@@ -0,0 +1,13 @@
+(define (match big smol ari)
+  (let ((mod (modulo big smol)))
+    (if (or (= mod 0) (> (quotient big smol) 1))
+        ari
+        (match smol mod (not ari)))))
+
+(let loop ((i (read)))
+  (when (> i 0)
+    (let ((n (read)) (m (read)))
+        (display (if (match (max n m) (min n m) #t)
+                     "Ari\n"
+                     "Rich\n")))
+    (loop (1- i))))