, , show , Haskell - , Haskell .
, read . show . , ,
read (show x) == x
(==) - , Eq.
, Data.Set.Set, , (BST). show
fromList [1,2,3,4,6,7]
read , , BST, , == . , () .
"" fromSomeTransparentType value.
, , show - " " , . , , , , . , , :
data Exp = Add Exp Exp | ...
instance Show Exp where
show (Add e1 e2) = "(" ++ show e1 ++ ", " ++ show e2 ++ ")"
"" show . read == id . -, read . -, , read , . : ( AJFarmar )
show (read "Just (((6)))") = "Just 6"