zipWith 実装してみようと思ったけど上手くかね。わかんね。

MyzipWith.hs

--zipTwo :: ( a -> b -> c ) -> [a] -> [b] -> [c]
--zipTwo _ [] _ = []
--zipTwo _ _ [] = []
--zipTwo f (x:xs) (y:ys) = f x y : f xs ys
 
--分かった 再帰を使っているのに引数にとった関数を使おうとしているから
-- 上手くいかなかった
zipTwo :: (a -> b -> c) -> [a] -> [b] -> [c]
zipTwo f [] _ = []
zipTwo f _ [] = []
zipTwo f (x:xs) (y:ys) = f x y : zipTwo f xs ys

main = print ( zipTwo (+) [1..10] [1..10] )