Flatten nested arrays

Exemplo 1 passo, executado em ordem numa sessão. Cada passo foi executado no motor e a saída abaixo é o que ele produziu.

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

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

Todas as receitas · Referência de funções · Usar isto de um cliente MCP