私は赤黒木で遊んでいます:私はGHCiの中で次の文を実行した場合 -- Taken from Okasaki 1999
module RedBlackTree where
--node coloring data
--a node is R (red) or B (black)
data Color = R | B
--tree constructor
--a RBT can be
data Months = January|February|March|April|May|June|July
deriving (Eq, Ord, Enum)
instance Show Months where
show January="Jan"
show February="Feb"
show March="Mar"
....
私のような出力を表示するために行