Triangular Text by nomeata

t n []=[]
t n l=take n l++"\n"++t(n+1)(drop n l)
main=interact$t 1.filter(`notElem`" \n\t")

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

download

return to the top page