Sierpinski carpet: Difference between revisions

End Sub</lang>

 

Replace a empty spot with a 3x3 empty matrix, and replace a full spot with an empty spot surrounded by 8 full spots:

<lang Mathematica>full={{1,1,1},{1,0,1},{1,1,1}}