豊福です。

はらさん
>-- foldl add zero は、 fold1 add でもいいのかな。

  なんとなく xs か ys が [] のときのために必要そうな気がして
foldl を使ったんですが foldl1 でいいんですね。

> それから、zipWith を使うと少しだけ簡単になりますね。

  なるほど。勉強になりました。
---
                        豊福
                        nobu_toyofuku / nifty.com


--
ML: haskell-jp / quickml.com
使い方: http://QuickML.com/