sáp nhập hai danh sách trong Haskell

Question

Không thể tìm ra cách để kết hợp hai danh sách theo cách sau trong Haskell:

INPUT: [1,2,3,4,5] [11,12,13,14] 

OUTPUT: [1,11,2,12,3,13,4,14,5] 

Answer 1

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

Answer 2

EDIT: Hãy nhìn vào câu trả lời và ý kiến ​​của Ed'ka !

Một khả năng khác:

merge xs ys = concatMap (\(x,y) -> [x,y]) (zip xs ys) 

Hoặc, nếu bạn thích applicative:

merge xs ys = concat $ getZipList $ (\x y -> [x,y]) <$> ZipList xs <*> ZipList ys 

Answer 3

Vậy tại sao bạn nghĩ đơn giản (. Concat transpose) "là không đủ xinh đẹp"? Tôi cho rằng bạn đã thử một cái gì đó như:

merge :: [[a]] -> [a] 
merge = concat . transpose 

merge2 :: [a] -> [a] -> [a] 
merge2 l r = merge [l,r] 

Vì vậy, bạn có thể tránh đệ quy rõ ràng (so với câu trả lời đầu tiên) và vẫn đơn giản hơn câu trả lời thứ hai. Vì vậy, những hạn chế là gì?

Answer 4

Tôi muốn đề xuất một phiên bản lazier của merge:

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

Đối với một trường hợp ví dụ sử dụng, bạn có thể kiểm tra một gần đây SO câu hỏi về lazy generation of combinations.
Phiên bản trong câu trả lời được chấp nhận là không cần thiết nghiêm ngặt trong đối số thứ hai và đó là những gì được cải thiện ở đây.

Answer 5

-- ++ 
pp [] [] = [] 
pp [] (h:t) = h:pp [] t 
pp (h:t) [] = h:pp t [] 
pp (h:t) (a:b) = h : pp t (a:b) 

Answer 6

Chắc chắn một trường hợp cho một Unfold:

interleave :: [a] -> [a] -> [a] 
interleave = curry $ unfoldr g 
    where 
    g ([], []) = Nothing 
    g ([], (y:ys)) = Just (y, (ys, [])) 
    g (x:xs, ys) = Just (x, (ys, xs))