j
k
j a
j l
On Wed, 20 Jul 2005, Sun Yi Ming wrote:
mix :: [a] -> [a] -> [a] mix [] ys = ys mix xs [] = xs mix (x:xs) (y:ys) = [x,y] ++ mix xs ys
mix xs ys = concat (Data.List.transpose [xs,ys])
Back to the thread
Back to the list