Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (5 sloc) 155 Bytes
module MyZip where
myZip :: Int -> [a] -> [a] -> [a]
myZip c [] ys = []
myZip c xs [] = xs
myZip c xs (y:ys) = take c xs ++ [y] ++ myZip c (drop c xs) ys