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

set3b merge

Browse Source
This commit is contained in:
Aaro Koivukangas
2024-04-19 15:09:14 +02:00
parent 578fddb74c
commit ad1dd05565
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set3b.hs
+6 -1
View File
@@ -142,7 +142,12 @@ sumsOf xs = todo
-- merge [1,1,6] [1,2] ==> [1,1,1,2,6]
merge :: [Int] -> [Int] -> [Int]
merge xs ys = todo
merge (x:xs) (y:ys) = if x < y
then x : merge xs (y:ys)
else y : merge (x:xs) ys
merge [] (y:ys) = y : merge [] ys
merge (x:xs) [] = x : merge xs []
merge [] [] = []
------------------------------------------------------------------------------
-- Ex 8: compute the biggest element, using a comparison function