Haskell实例展示

Question

嗨，我有一个 haskell 模块，它具有这种数据类型

data Blabla = Blabla [Integer]
[Char]
[(Integer,Char,Char,Integer,String)] Integer

，我想通过使用实例显示

integers=[1,2,3]
chars=[a,b,c]
specialList=[(1,a,b,2,cd),(3,b,c,4,gh)]
interger=44

感谢帮助来向它们展示...

Answer 1

假设您只需要默认样式，只需将 deriving Show 添加到行尾即可，如下所示。

data Blabla = Blabla [Integer] [Char] [(Integer,Char,Char,Integer,String)] Integer deriving Show

会工作得很好，因为 Blabla 构建的所有原始类型都是“可显示的”。例如，

*Main> Blabla [1,2,3] "abc" [(1,'A','B',2,"Three")] 54
Blabla [1,2,3] "abc" [(1,'A','B',2,"Three")] 54

将 Blabla 构建为命名结构可能会更好。

 data BlaBlu = BlaBlu {
    theNumbers :: [Integer] ,
    theIdentifier :: [Char] ,
    theList :: [(Integer,Char,Char,Integer,String)]  ,
    theInteger :: Integer
 } deriving Show

通过这样做，您可能能够使结构更有意义。

*Main> BlaBlu [1,2,3] "abc" [(1,'A','B',2,"Three")] 54
BlaBlu {theNumbers = [1,2,3], theIdentifier = "abc", theList = [(1,'A','B',2,"Three")], theInteger = 54}

对列表结构做同样的事情，希望代码会更具可读性。

如果您想编写自己的 Show 实例，以便可以自定义它，那么您可以删除 deriving Show 并只编写您自己的实例，例如：

instance Show Blabla where                                                                                       
    show (Blabla ints chars list num) =                                                                            
    "integers = " ++ show ints ++ "\n" ++                                                                        
    "chars = " ++ show chars ++ "\n" ++                                                                          
    "specialList = " ++ show list ++ "\n" ++                                                                     
    "integer = " ++ show num              

实现产生的位置大致是您在原始问题中询问的输出。

*Main> Blabla [1,2,3] "abc" [(1,'A','B',2,"Three")] 54
integers = [1,2,3]
chars = "abc"
specialList = [(1,'A','B',2,"Three")]
integer = 54