[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
k#n|k>n="_"|1>0=show kf n=div(n+4)4-0^mod n 4u=unwordsmain=do n<-readLn;putStr$u\\[u$map(#n)[4*f n+2-a,a-1,a,4*f n+1-a]|a<-[2,4..2*f n]]
