blob: fe07fc0a874e977dce219a1c5cca160cdb1e6317 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
import System.Environment(getArgs)
gcd2 a 0 = a
gcd2 a b = gcd2 b (a `rem` b)
gcdn n = foldl1 gcd2 n
str2int :: String -> Integer
str2int = read
main = do
a <- getArgs
print (gcdn (map str2int a))
|