在Haskell中将show与列表列表一起使用

Question

我在使用show打印列表列表给出的矩阵行时遇到了一些麻烦。

我有这个：

data Matrix = Mat Int [[Bit]] 
    deriving Eq

其中，参数Int是平方矩阵的阶数，而Bit是Int（0或1）。 我需要我的代码能够执行以下操作，并将Matrix作为Show的实例：

Main> Mat 3 [[0,0,1],[1,0,1],[1,1,1]
[0,0,1]
[1,0,1]
[0,0,1]

到目前为止，我只有：

instance Show Matrix where
    show (Mat i (x:xs)) = (show x) ++ "\n"

但这显然只返回第一个列表。 您能帮我解决这个问题吗？ 提前致谢。

Answer 1

最简单的方法是show所有行，并将每个行放在各自的行中：

instance Show Matrix where
    show (Mat _ rows) = unlines $ map show rows

这样做的轻微缺点是，它还在最后一行之后添加了换行符，为避免这种情况，您可以使用

instance Show Matrix where
    show (Mat _ rows) = intercalate "\n" $ map show rows

（需要导入Data.List来intercalate ）