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

ex10. operator done

Browse Source
This commit is contained in:
Aaro Koivukangas
2024-01-16 20:13:17 +02:00
parent cdb38e1c72
commit dd3918b3ba
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set3a.hs
+5
View File
@@ -218,6 +218,11 @@ allCombinations xs = merge (map (`allCombinationsWithStr` xs) xs) []
-- [1,2,3] +|+ [4,5,6] ==> [1,4] -- [1,2,3] +|+ [4,5,6] ==> [1,4]
-- [] +|+ [True] ==> [True] -- [] +|+ [True] ==> [True]
-- [] +|+ [] ==> [] -- [] +|+ [] ==> []
(+|+) :: [a] -> [a] -> [a]
[] +|+ [] = []
a +|+ [] = [head a]
[] +|+ b = [head b]
a +|+ b = [head a, head b]
------------------------------------------------------------------------------ ------------------------------------------------------------------------------