From 3a9fe78bb74d3a8482d746524d7c8f2876d8692f Mon Sep 17 00:00:00 2001
From: Anthony Wang
Date: Fri, 14 Jan 2022 12:08:16 -0600
Subject: Haskell: use sum instead of foldl

---
 test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test.hs b/test.hs
index 02ff588..127dc62 100644
--- a/test.hs
+++ b/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)
-- 
cgit v1.2.3