Haskell:打印出元组列表的内容

Question

基本上我需要做的是编写一个函数，它接收类型为 [(String, String)] 的列表。并打印出内容，以便逐行输出如下所示:

FirstString : SecondString

FirstString : SecondString

..etc，对于列表中的每个项目。我有以下代码并将其打印出来，但由于某种原因，它打印出包含 [(),()] 的行在最后。

display :: Table -> IO ()
display zs = do { 
    xs <- sequence [putStrLn ( a ++ " = " ++ b) | (a, b) <- zs];
    print xs 
}

有什么我做错了吗？

Answer 1

最后的 print xs 是不必要的。这里的序列返回一堆 ()s(putStrLn 的返回值)，并且 print 也将其打印出来。

当您使用它时，现在 print xs 已经消失了，您可以摆脱 xs 变量绑定(bind)，并将 sequence 放入 sequence_ 以丢弃返回值，给出:

display :: Table -> IO()
display zs = sequence_ [putStrLn (a++" = "++b) | (a,b) <- zs]