6 lines
118 B
Haskell
6 lines
118 B
Haskell
-- Version 5
|
|
evenSum l = mysum 0 (filter even l)
|
|
where
|
|
mysum n [] = n
|
|
mysum n (x:xs) = mysum (n+x) xs
|