Thoughts on 1

2023-10-18 23:26:03 -04:00 · 2023-10-18 23:26:03 -04:00 · 8144edd676
parent bc3247a792
commit 8144edd676
1 changed files with 3 additions and 0 deletions
--- a/src/projectEuler/question1.hs
+++ b/src/projectEuler/question1.hs
@ -13,6 +13,9 @@ main = print ans
 ans :: Integer
 ans = sum $ allNumbersUnder 1000

+sum' :: Num a => [a] -> a
+sum' = foldl (+) 0
+
 isMultipleOf :: Integral a => a -> a -> Bool
 isMultipleOf n x = x `rem` n == 0