Flatten nested arrays

Example 1 step, run in order in one session. Every step was executed against the engine and the output below is what it produced.

ArrayPlot /@ NestList[ArrayFlatten[# /. 1 -> {{1, 0}, {1, 1}}]&, {{1}}, 5]

{-Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-, -Graphics-}

All recipes · Function reference · Use this from an MCP client