Sierpinski Triangle

$}=1|1<<pop;print($"x$},(map$_?$=:$"x2,@;),
$/),@;=(1,map$;[$_]^$;[-$_],1..@;)while$}--
[download]

This little program draws the sierpinski triangle fractal. Specify the size on the command line (should be about 5 depending on your screen size)

--MrNobo1024
s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print