将 Monoids 列表折叠为单个值

mconcat :: [a] -> a 是 Monoid 类型类的另一种方法 ：

ghci> mconcat [Sum 1, Sum 2, Sum 3]
Sum {getSum = 6}
ghci> mconcat ["concat", "enate"]
"concatenate"

它的默认定义是 mconcat = foldr mappend mempty。