|
|
下面把 mathematica 程序贴出来哈,供感兴趣者以后研究。
n = 154765444566845465463554543567835384;
i = 0;
m = 0; lst = {n};
Print[i, "------", n]
For[i = 1, i < 1000, i++,
n = FromDigits[Reverse[Sort[IntegerDigits[n]]]] -
FromDigits[Sort[IntegerDigits[n]]];
lst = Append[lst, n];
For[j = 1, j < i, j++; If[n == lst[[j]], m = 1; mm = j]]
Print[i, "------", n]
If[m == 1, Break[]]
]
Print["从第 ", mm - 1, " 步开始进入循环圈(循环圈长度是 ", j + 1 - mm, "):"]
For[k = mm, k < j + 2, k++, Print[lst[[k]], " "]]
程序运行结果:
0------154765444566845465463554543567835384
1------755442222221110999999888877777755443
2------988877666643333219977666653333221111
3------888776554433333320876666665544322112
4------877655533333331110888866666664443222
5------877765533333333110888666666664432222
6------877655533333333310886666666664443222
7------876553333333333110888666666666644322
8------877653333333333310886666666666643222
9------876553333333333330866666666666644322
10------865333333333333310886666666666666432
11------876333333333333330866666666666666322
12------865333333333333332666666666666666432
13------643333333333333330866666666666666654
14------833333333333333320876666666666666662
15------865333333333333332666666666666666432
从第 12 步开始进入循环圈(循环圈长度是 3):
865333333333333332666666666666666432
643333333333333330866666666666666654
833333333333333320876666666666666662
865333333333333332666666666666666432 |
|