|
|
|
|
0, 2, 3, 4, 5, 6, 8, 9, 11, 14, 15, 23, 24, 26, 28, 33, 35
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
数学
|
clip[lst_]:=块[{p=Flatten@Position[lst,1]},取[lst、{Min@p、Max@p}]];t=Max/@Map[Length@#&,Map[Split@#&、Map[clip,CellularAutomaton[30,{{1},0},5000]]/。1->什么都没有,{2}];a={0};Do[If[t[[n]]>最大值@a,附加到[a,t[[n]]],{n,长度@t}];一个(*迈克尔·德弗利格,2015年10月6日*)
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|