zipWith と foldl をくっつけてみた。

【サンプルコード】


a=[[1,2,3],[9,8,7],[10,15,20]]
main=print$foldl(zipWith(+))(head a)(tail a)

というようにすれば、

[20,25,30]

というように結果が出せる。

1+9+10 と 2+8+15 と 3+7+20

のリストという結果が求められる。

だけど、head とかって書くのは　いまいちだな。。。