Собственная функция Haskell для объединения двух списков

Question

Мне нужно написать функцию для объединения двух списков. Точно как '++' работает.

let x = merge [1,2,3] [3,3,4] -- should output [1,2,3,3,3,4] 

Как это сделать?

Edit: решение

merge :: [a] -> [a] -> [a] 
merge []  ys = ys 
merge (x:xs) ys = x : (merge xs ys) 

Answer 1

Может быть что-то вроде этого.

merge :: (a -> a -> Bool) -> [a] -> [a] -> [a] 
merge pred xs []   = xs 
merge pred [] ys   = ys 
merge pred (x:xs) (y:ys) = 
    case pred x y of 
    True -> x: merge pred xs (y:ys) 
    False -> y: merge pred (x:xs) ys 

(++) xs ys = merge (\x y -> compare x y == LT) xs ys 

Или, если вам просто нужно повторить функциональность (++), вы можете посмотреть, что это определение с hoogle, который в конечном итоге приводит вас к source code

(++) []  ys = ys 
(++) (x:xs) ys = x : xs ++ ys