Печать списка списков без скобок

Question

я пытаюсь напечатать Треугольник Паскаля до некоторой произвольной строки, после того, как некоторые думали, что я пришел с этим решением:

next xs = zipWith (+) ([0] ++ xs) (xs ++ [0]) 
pascal n = take n (iterate next [1]) 

main = do 
    n <- readLn :: IO Int 
    mapM_ putStrLn $ map show $ pascal n 

Который работает достаточно хорошо, для печати, за исключением. Когда я применяю pascal 4 я получаю:

[1] 
[1,1] 
[1,2,1] 
[1,3,3,1] 

Когда то, что я действительно хочу это:

1 
1 1 
1 2 1 
1 3 3 1 

Есть ли способ, что я могу это сделать?

Answer 1

Определите свою собственную функцию довольно-печати:

import Data.List (intercalate) 

show' :: Show a => [a] -> String 
show' = intercalate " " . map show 

Answer 2

Вы могли unwords/unlines:

import Data.List 
... 
putStr $ unlines $ map (unwords . map show) $ pascal n