型によるプログラミング 合成によるデザイン:SemigroupとMonoid Monoid:単位元による合成 整数型、Integer、乗算、mempty、単位元
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT3(型によるプログラミング)、LESSON17(合成によるデザイン:SemigroupとMonoid)、17.3(Monoid:単位元による合成)、クイックチェック 17-4の解答を求めてみる。
コード
import Data.Semigroup
instance Semigroup Integer where
(<>) = (*)
instance Monoid Integer where
mempty = 1
mappend = (*)
n :: Integer
n = 2
m :: Integer
m = 3
main :: IO ()
main = do
print (mempty :: Integer)
print $ mappend n m
print $ mconcat ([1 .. 10] :: [Integer])
入出力結果(Terminal, Zsh)
% runghc sample04.hs
1
6
3628800
%