Half Sierpinski by [1..100]>>=pen

main=mapM putStrLn$["#"]%1%2%4%8%16;x%n=[take n(t++cycle" ")++t|t<-x]++x

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

download

return to the top page