A modified zip function in Haskell that output a list with the second input list's element repeated.

zip_repeat_input2.hs

--As modified from the Prelude:
zip_repeat_input2 ::(Num a, Eq a, Num b, Eq b)=> [a] -> [b] -> [(a,b,b)]
zip_repeat_input2 []     _bs    = []
zip_repeat_input2 _as    []     = []
zip_repeat_input2 (a:as) (b:bs) = (a,b,b) : zip_repeat_input2 as bs

main = do
  print (zip_repeat_input2 [0,1,2] [1,2,3])
  print (zip_repeat_input2 [1,2,3,4,0,5,6] [1,2,3,4,5,6,0])

See my blog post.