iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

ex11. sumRights done with challenge

Browse Source
This commit is contained in:
Aaro Koivukangas
2024-01-17 12:32:38 +02:00
parent dd3918b3ba
commit 387e8c3d2b
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set3a.hs
+1 -1
View File
@@ -240,7 +240,7 @@ a +|+ b = [head a, head b]
-- sumRights [Left "bad!", Left "missing"] ==> 0
sumRights :: [Either a Int] -> Int
sumRights = todo
sumRights = foldr (\a b -> fromRight 0 a + b) 0
------------------------------------------------------------------------------
-- Ex 12: recall the binary function composition operation