Visualize the evolution of a Turing machine

示例 1 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

ArrayPlot[Function[u, MapAt[Red&, u[[2]], u[[1, 2]]]] /@ TuringMachine[2506, {1, {{}, 0}}, 50]]

输出

-Graphics-

用到的函数