12 lines
348 B
Haskell
12 lines
348 B
Haskell
-- Version 2
|
|
evenSum :: Integral a => [a] -> a
|
|
evenSum l = accumSum 0 l
|
|
where accumSum n l =
|
|
if l == []
|
|
then n
|
|
else let x = head l
|
|
xs = tail l
|
|
in if even x
|
|
then accumSum (n+x) xs
|
|
else accumSum n xs
|