r 2=[]
r n=([1..n-2]>>" ")++"Z\n"++r(n-1)
f n=([1..n]>>"Z")++"\n"
g n|n==1="Z"|1>0=f n++r n++f n
main=do n<-readLn;putStr$g n

こういうコードを書いてしまうことが問題。。。
短いコード以外では、ゴルフ投稿は　当分控えることにしよう。。。

と書いた５分後に投稿してしまった。

r 2=[]
r n=([1..n-2]>>" ")++"Z\n"++r(n-1)
f n=([1..n]>>"Z")++"\n"
g n|n==1="Z"|1>0=f n++r n++f n
main=readLn>>=putStr.g

が、やはり当分は控えることに。。。

と思ったが、短くなったら　投稿せざるを得まい。。。

r 2=[]
r n=([1..n-2]>>" ")++"Z\n"++r(n-1)
f n=([1..n]>>"Z")++"\n"
g 1="Z"
g n=f n++r n++f n
main=readLn>>=putStr.g

考え方をぱくって、なんとか　111 バイト。
もうやってられん！！


f a b|a==b=b|1>0=b-a
main=do n+1<-readLn;mapM putStrLn[[" Z"!!(0^((n-y)*y*(n-x-y))^2)|x<-[0..f y n]]|y<-[0..n]]

 と思ったが、やっぱり縮める作業に入ってしまった。

f a b|a==b=b|1>0=b-a
main=do n+1<-readLn;mapM putStrLn[[" Z"!!(0^((n-y)*y*(n-x-y)))|x<-[0..f y n]]|y<-[0..n]]