Haskell: use sum instead of foldl

Changes

1 changed files (+1/-1)

• test.hs
  • @@ -9,4 +9,4 @@ main = do
    putStrLn "test" let n = 1000 let a = [0..n-1] - print $ foldl (+) 0 (map (\i -> foldl (+) 0 (map (`gcd` i) a)) a) + print $ sum (map (\i -> sum (map (`gcd` i) a)) a)