Triangle ASCII art by henkma

m@main=do
x<-readLn
putStrLn$do y<-[0..x];'|':[" _"!!div y x|_<-[1..y]]++"\\\n"
 ++do[1..32];"*"
m

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

download

return to the top page