15/06/09 05:59:45.81 keQMp1Zr.net
858 ：名無しさん＠ｺﾞｰｺﾞｰｺﾞｰｺﾞｰ！：2015/06/09(火) 05:58:57.73 ID:FmWR9u6b0
>>852-853
インデックス使わないバージョン（zipは使う）
reduce :: (a -> b -> a) -> a -> [b] -> a
reduce f z xs = f lasty lastx
where
(lastx, lasty) = last xys
xys = zip xs ys
ys = z : map (\(x, y) -> f y x) xys
っていうかHaskellスレ行けｗ