fork download
  1. combine :: (a, a) -> a -> (a, a, a)
  2. combine (x, y) z = (x, y, z)
  3.  
  4. main = print (zipWith combine a b)
  5. where
  6. a = [(1, 1), (1, 2), (1, 3)]
  7. b = [4, 5, 6]
Success #stdin #stdout 0s 6272KB
stdin
Standard input is empty
stdout
[(1,1,4),(1,2,5),(1,3,6)]