gcd.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
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))