ハスケルでパスカルの三角形を印刷

Question

私はちょうどハスケルを学び始めて、オンラインでいくつかの問題を抱えています。ほとんどの場合、私は解決策を理解することができますが、私は期待される出力形式で印刷することができません。

たとえば、私はパスカルの三角形のプログラムを実行しようとしました。 PascalのTriangleをIntsのリストのリストとして生成する方法を見つけましたが、それをどのように印刷するかは分かりません。

ここに私のコードです。

import Data.List 
pascal n = map liner [0..n] 
    where liner x = map (comb x) [0..x] 

comb n 0 = 1 
comb 0 r = 0 
comb n r = comb (n-1) (r-1) * n `div` r 

main = do 
    order <- getLine 
    let output = pascal . (read :: String -> Int) $ order 
    print output 

現在、出力は、私は、フォーム私はこれをどのように行うのです

1 
1 1 
1 2 1 
1 3 3 1 
... 

でそれを印刷したい

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

のようなものですか？私はmapM_やintercalateのようなものを使ってみました。私はまだモナドには入っていないので、mapMのしくみを理解できません。

Answer 1

これを行うにはいくつかの方法がありますが、最も単純な方法（IMO）は次のとおりです。

putStrLn $ intercalate "\n" $ map (intercalate " " . map show) output 

この最初の文字列（showを使用して）に、リスト内の数値の全てを変換します。次に、最も内側のリストを文字列に変換します。各要素はスペースで区切られます（intercalate " "を使用）。次に、の最も外側のリストを、各要素が改行（intercalate "\n"を使用）で区切られた文字列に変換します。最後に、結果の文字列をstdoutにプッシュします。 mainの最後の行をこれに置き換えてください。それはあなたが望むようにする必要があります。

EDIT：Yakymは彼の答えで述べたように 、intercalate " "とintercalate "\n"はもう少し簡潔な（それもData.Listの輸入の必要性を取り除く）上記のコードを作り、unwordsとunlinesと交換することができます。

putStr $ unlines $ map (unwords . map show) output 

unlinesが自動的に出力の最後に改行を追加しますので、私はputStrにputStrLnを変更しました。

Answer 2

また、文字列リストに自然なインターカレーションを行うunlinesとunwordsのような機能もあります。

pascal :: [[Int]] 
pascal = iterate (\row -> zipWith (+) ([0] ++ row) (row ++ [0])) [1] 

printPascal :: [[Int]] -> IO() 
printPascal = mapM_ (putStrLn . unwords . map show) 

--*Main> printPascal $ take 10 pascal 
--1 
--1 1 
--1 2 1 
--1 3 3 1 
--1 4 6 4 1 
--1 5 10 10 5 1 
--1 6 15 20 15 6 1 
--1 7 21 35 35 21 7 1 
--1 8 28 56 70 56 28 8 1 
--1 9 36 84 126 126 84 36 9 1