|
本帖最后由 lugionline 于 2018-11-1 11:35 编辑
好像被管理员去审查去了,也许里面包含了重大的机密,每段MMA代码都是自动加密的
In[1]:= gen[ns_] := Join[ns, {#}] & /@ Select[Range[0, 9],
! MemberQ[ns, #] && # > StringLength@IntegerName[Last[ns]] &]
Last@Sort@
FixedPointList[Flatten[gen /@ #, 1] &, List /@ Range[9]][[-3]]
Out[2]= {3, 9, 8, 7, 6, 4, 5}
文本应当不需要审查吧
|
|