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
|