Haskell: use sum instead of foldl

This commit is contained in:
Anthony Wang 2022-01-14 12:08:16 -06:00
parent 598287afd4
commit 3a9fe78bb7
Signed by: a
GPG Key ID: BC96B00AEC5F2D76

View File

@ -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)