RosettaCodeData/Task/Sierpinski-triangle/Mathematica/sierpinski-triangle-1.math

2 lines
77 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
n=4;Grid[CellularAutomaton[90,{{1},0},2^n-1]/.{0->" ",1->"*"},ItemSize->All]