page35

qwe795138426 · Feb 13, 2021 · 0b24289 · 0b24289
1 parent 0f56b1b
commit 0b24289
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 0 deletions.
diff --git a/page35/page35 b/page35/page35
diff --git a/page35/page35.hi b/page35/page35.hi
diff --git a/page35/page35.hs b/page35/page35.hs
@@ -0,0 +1,14 @@
+main = do
+    print "m"
+    m <- getLine
+    let m_1 = read m 
+    print "n"
+    n <- getLine
+    let n_1 = read n 
+    let answer = rangzhuan m_1 n_1
+    print answer
+
+
+rangzhuan m n 
+    |n /= 0 = rangzhuan n (rem m n)
+    |n == 0 = m
diff --git a/page35/page35.o b/page35/page35.o