Смешайте два списка в Haskell

Question

Я просто изучаю Haskell, и я хотел бы сделать функцию «перетасовки», которая перемешивает два списка, чередуясь, пока не закончится. Итак, shuffle "abc" "defgh" вернется "adbecfgh". Или shuffle "abc" """abc".

До сих пор у меня есть:

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

Проблема заключается в том, что это только перетасовки списков для длины кратчайшего списка и не включая остальную часть длинного списка. Таким образом, shuffle "abc" "defgh" возвращает "adbecf", а не "adbecfgh".

Может ли кто-нибудь помочь мне найти лучший подход к этому?

Answer 1

Вы могли бы просто дать определение точечно:

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

Каждый zip* метод Prelude или Data.List не будет работать, так как они будут принимать только длину более короткого списка.

Answer 2

Другой, немного короче, способ сделать это точечно, как это было предложено Zeta:

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