Begin: C, C#, Haskell, Java, Python

1 files changed, 14 insertions, 0 deletions

diff --git a/gcd.hs b/gcd.hs
new file mode 100644
index 0000000..c326115
--- /dev/null
+++ b/gcd.hs
@@ -0,0 +1,14 @@
+import System(getArgs)
+
+gcd2 a 0 = a
+gcd2 a b = gcd2 b (rem b a)
+
+gcdn n = foldl1 gcd2 n
+
+str2int :: String -> Integer
+str2int = read
+
+main = do
+    a <- getArgs
+    print (gcdn (map str2int a))
+