プログラミングのお題スレ Part13

[816 デフォルトの名無しさん 2019/04/19(金) 07:15:46.60 ID:TxABBsFf]

>>811
main = do
print $ zipWith (+) [1,2,3] [4,5,6]
print $ zipWith3 (\a b c -> a + b + c) [1,2,3] [4,5,6] [7,8,9]
print $ zipWith3 (\a b c -> a * b / c) [1,2,3] [4,5,6] [7,8,9]

Out:
[5,7,9]
[12,15,18]
[0.571428571428571,1.25,2.0]