型の紹介 - 型クラスを使用する - Showを実装する - instance, whereキーワード
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT2(型の紹介)、LESSON 14(型クラスを使用する)、14.2(Showを実装する)、クイックチェック 14-1の解答を求めてみる。
コード
sample1.hs
main :: IO ()
main = do
mapM_ print [S1, S2, S3, S4, S5, S6]
data SixSideDie = S1 | S2 | S3 | S4 | S5 | S6
instance Show SixSideDie where
show :: SixSideDie -> String
show S1 = "Ⅰ"
show S2 = "Ⅱ"
show S3 = "Ⅲ"
show S4 = "Ⅳ"
show S5 = "Ⅴ"
show S6 = "Ⅵ"
入出力結果(Terminal, Zsh)
% runghc sample1.hs
Ⅰ
Ⅱ
Ⅲ
Ⅳ
Ⅴ
Ⅵ
%