1.hsfold :: (Monoid m, Foldable t) => t m -> m
fold = foldr mappend mempty
f
に、何もしない id
を与える2.hsfoldMap f = foldr (mappend . f) mempty
fold = foldMap id
hsconcat :: [[a]] -> [a]
concat = foldr (++) []
hsfold [[1],[2],[3]] -- [1,2,3]
concat [[1],[2],[3]] -- [1,2,3]