8 lines
199 B
Haskell
8 lines
199 B
Haskell
-- Version 3
|
|
evenSum l = accumSum 0 l
|
|
where
|
|
accumSum n [] = n
|
|
accumSum n (x:xs) =
|
|
if even x
|
|
then accumSum (n+x) xs
|
|
else accumSum n xs
|