Diamond Matrix by henkma

p=pred
n%x=([x..p n]>>" ")++['1'..p x]++[x,p x..'1']++"\n"
main=interact(\[n]->n%n>>=(n%))

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

download

return to the top page