【初稿】132バイト
久々の接待ゴルフ（にもならんが）世界と２倍差にはならなかった。

main=mapM putStrLn$map unwords$take 34$map(map show)$iterate(f 0)[1]
f a b|length b==a=[1]|a==0=1:f(a+1)b|1>0=b!!(a-1)+b!!a:f(a+1)b

【修正１】127バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate(0#)[1]
a#b|length b==a=[1]|a==0=1:(a+1)#b|1>0=b!!(a-1)+b!!a:(a+1)#b

ちんたら、条件判定してるのがいかんのかなあ

【修正２】121バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate(0#)[1]
0#b=1:1#b
a#b|length b==a=[1]|1>0=b!!(a-1)+b!!a:(a+1)#b

【修正３】111バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate f[1]
f b=1:g(b++[0])
g[0]=[]
g x=x!!0+x!!1:g(tail x)

方針をがらっと変えて短くなった。

【修正３】106バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate f[1]
f a=1:g a
g[a]=[a]
g x=x!!0+x!!1:g(tail x)

【修正４】105バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate(\a->1:g a)[1]
g[a]=[a]
g x=x!!0+x!!1:g(tail x)

【修正５】90バイト
main=mapM putStrLn$map(unwords.(map show))$take 34$iterate(\x->zipWith(+)(x++[0])(0:x))[1]

ネットを漁っていたら、パスカルの三角形は、
0, 1
1, 0
を合わせると、1, 1 になるし、

0, 1, 1
1, 1, 0
を合わせると、1, 2, 1 になることが分かった。

なので、zipWith を使って書き直したら、90 まで縮んだ。

【修正６】88バイト
main=mapM putStrLn$map(unwords.map show)$take 34$iterate(\x->zipWith(+)(x++[0])(0:x))[1]

map show を囲った括弧は消せたよ。。。

【修正７】87バイト　
main=mapM putStrLn$map(unwords.map show)$take 34$p
p=[1]:[zipWith(+)(x++[0])(0:x)|x<-p]

接待ゴルフまで　あと2バイト！！


【修正８】86バイト　
main=mapM putStrLn$map(unwords.map show)$take 34p
p=[1]:[zipWith(+)(x++[0])(0:x)|x<-p]

接待ゴルフまで　あと1バイト！！ take と p は　ドルマークで結ばなくて良かった（はあと）

【修正８】85バイト　
main=mapM putStrLn$map(unwords.map show)$take 34p
p=[1]:[zipWith(+)(x++[0])$0:x|x<-p]

接待ゴルフ開始　　か？

【修正９】81バイト　
main=mapM(putStrLn.unwords.map show)$take 34p
p=[1]:[zipWith(+)(0:x)$x++[0]|x<-p]

いやはや、mapM と map でも合成関数ができたとは。。。
まったく　知らなかった。。。