number slide by tttaki

n#[]=[]
n#l=take n l:(n+1)#(drop n l)
main=interact(\n->unlines$map(unwords.map show)$1#[1..read n])

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

download

return to the top page