WOLFRAM

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

配列の項目を連続的に置換する

Wolfram Language code: ArrayPlot[#, Mesh -> True, ImageSize -> 50]& /@ NestList[ReplacePart[#, RandomInteger[{1, 5}, {2}] -> 1]&, ConstantArray[0, {5, 5}], 10]