Ladder operator by _

main@m=readLn>>=f.floor.(*2)>>m
f n=putStr$unlines[unwords[show$i*(n-j+1)*0^abs(i-j)|i<-[0..n]]|j<-[1..n+1]]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page