Return to Answer

added 159 characters in body

edited Aug 1, 2012 at 0:11

Mathematica - 32 characters

Nest[Subsuperscript[#,#,#]&,0,5]

enter image description here

Mathematica - 37 characters

Grid@CellularAutomaton[90,{{1},0},31]

This will produce a 2D table of 0 and 1, where 1s are drawing Sierpinski Triangle.

enter image description here

Mathematica - 37 characters

Grid@CellularAutomaton[90,{{1},0},31]

This will produce a 2D table of 0 and 1, where 1s are drawing Sierpinski Triangle.

enter image description here

Mathematica - 32 characters

Nest[Subsuperscript[#,#,#]&,0,5]

enter image description here

Mathematica - 37 characters

Grid@CellularAutomaton[90,{{1},0},31]

This will produce a 2D table of 0 and 1, where 1s are drawing Sierpinski Triangle.

enter image description here

answered Jul 31, 2012 at 6:32

Mathematica - 37 characters

Grid@CellularAutomaton[90,{{1},0},31]

This will produce a 2D table of 0 and 1, where 1s are drawing Sierpinski Triangle.

enter image description here