WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

ライフゲームを構築する

ライフゲームの「シュシュポッポ列車」の進化を示す．

Wolfram Language code: GameOfLife = {224, {2, {{2, 2, 2}, {2, 1, 2}, {2, 2, 2}}}, {1, 1}};
Wolfram Language code: Puffer = {{1, 4}, {2, 5}, {3, 1}, {3, 5}, {4, 2}, {4, 3}, {4, 4}, {4, 5}, {8, 1}, {9, 2}, {9, 3}, {10, 3}, {11, 3}, {12, 2}, {15, 1}, {15, 4}, {16, 5}, {17, 1}, {17, 5}, {18, 2}, {18, 3}, {18, 4}, {18, 5}};
Wolfram Language code: ArrayPlot[Mean[CellularAutomaton[GameOfLife, {SparseArray[Puffer -> 1], 0}, 200]]]