RosettaCodeData/Task/Sierpinski-triangle/Mathematica/sierpinski-triangle-1.math
2023-07-01 13:44:08 -04:00

1 line
77 B
Text

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