RosettaCodeData/Task/Sierpinski-triangle/Mathematica/sierpinski-triangle-1.math
2018-08-17 15:15:24 +01:00

1 line
77 B
Text

n=4;Grid[CellularAutomaton[90,{{1},0},2^n-1]/.{0->" ",1->"*"},ItemSize->All]