main=do m<-readLn;mapM putStrLn[unwords[show$i!j|j<-[1..m],i!j<=m]|i<-[-m..0],i!1<m] i!j=sum[1..j-i]+i
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page