顯示具有自定義語法的元組哈希克爾列表

Question

我有一個元組列表[(1,'a','%',"yes"),(2,'b','[',"no"),(3,'c',']',"ok")]。 如何以[(1,a,%,yes),(2,b,[,no),(3,c,],ok)]的形式將此列表顯示爲輸出？

Answer 1

看起來你想做的轉換是去掉引號字符？如果是這樣，過濾調用數據show的結果將是不夠的：

> let x = [(1,'a','%',"yes"),(2,'b','[',"no"),(3,'c',']',"ok")] 

然後申請一個過濾器，

> putStrLn . filter (`notElem` "'\"") . show $ x 
[(1,a,%,yes),(2,b,[,no),(3,c,],ok)] 

一旦你知道show原來的數據結構成爲一個漂亮的字符串處理該字符串進行微小的修改很容易。