6 lines
153 B
Haskell
6 lines
153 B
Haskell
-- Version 10
|
|
import Data.List (foldl')
|
|
sum' :: (Num a) => [a] -> a
|
|
sum' = foldl' (+) 0
|
|
evenSum :: Integral a => [a] -> a
|
|
evenSum = sum' . (filter even)
|