型の紹介 型クラスを使用する よい派生・悪い派生
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT2(型の紹介)、LESSON 14(型クラスを使用する)、14.6(よい派生・悪い派生)、クイックチェック 14-4の解答を求めてみる。
コード
lesson/app/Main.hs
module Main where
import Lib (bls)
main :: IO ()
main = do
mapM_ print bls
lesson/src/Lib.hs
module Lib
( bls,
)
where
data SixSideDie
= S1
| S2
| S3
| S4
| S5
| S6
deriving (Eq, Ord)
sides :: [SixSideDie]
sides = [S1, S2, S3, S4, S5, S6]
bls :: [[Bool]]
bls =
[ (==) <$> sides <*> sides,
(<) <$> sides <*> sides,
(<=) <$> sides <*> sides,
(>) <$> sides <*> sides,
(>=) <$> sides <*> sides
]
instance Show SixSideDie where
show S1 = "I"
show S2 = "II"
show S3 = "Ⅲ"
show S4 = "Ⅳ"
show S5 = "Ⅴ"
show S6 = "Ⅵ"
入出力結果(Terminal, Zsh)
% stack build
lesson-0.1.0.0: unregistering (local file changes: app/Main.hs src/Lib.hs)
lesson> configure (lib + exe)
Configuring lesson-0.1.0.0...
lesson> build (lib + exe)
Preprocessing library for lesson-0.1.0.0..
Building library for lesson-0.1.0.0..
[2 of 2] Compiling Lib
Preprocessing executable 'lesson-exe' for lesson-0.1.0.0..
Building executable 'lesson-exe' for lesson-0.1.0.0..
[2 of 2] Compiling Main
Linking .stack-work/dist/x86_64-osx/Cabal-3.4.1.0/build/lesson-exe/lesson-exe ...
lesson> copy/register
Installing library in /Users/…/lesson/.stack-work/install/x86_64-osx/11bee7f1432551708036aee298c43f57d1e8b1a145053e7d2d3b07e2f4ae638f/9.0.2/lib/x86_64-osx-ghc-9.0.2/lesson-0.1.0.0-CIOIkpTgcfQI9akDJnwnSd
Installing executable lesson-exe in /Users/…/lesson/.stack-work/install/x86_64-osx/11bee7f1432551708036aee298c43f57d1e8b1a145053e7d2d3b07e2f4ae638f/9.0.2/bin
Registering library for lesson-0.1.0.0..
% stack exec lesson-exe
[True,False,False,False,False,False,False,True,False,False,False,False,False,False,True,False,False,False,False,False,False,True,False,False,False,False,False,False,True,False,False,False,False,False,False,True]
[False,True,True,True,True,True,False,False,True,True,True,True,False,False,False,True,True,True,False,False,False,False,True,True,False,False,False,False,False,True,False,False,False,False,False,False]
[True,True,True,True,True,True,False,True,True,True,True,True,False,False,True,True,True,True,False,False,False,True,True,True,False,False,False,False,True,True,False,False,False,False,False,True]
[False,False,False,False,False,False,True,False,False,False,False,False,True,True,False,False,False,False,True,True,True,False,False,False,True,True,True,True,False,False,True,True,True,True,True,False]
[True,False,False,False,False,False,True,True,False,False,False,False,True,True,True,False,False,False,True,True,True,True,False,False,True,True,True,True,True,False,True,True,True,True,True,True]
%