9 lines
199 B
Haskell
9 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
|