检验过的
经核准的
提出
编辑
(*测试数字循环的递归公式。例如:*)
b[1]=3471;
b[f_]:=FromDigits[Sort[IntegerDigits[b[f-1]],Greater]]-FromDigets[Sort[Integer Digits[1]]]
表[b[f],{f,1,10}](*何塞·德·杰苏斯·卡马乔·麦地那,2014年7月27日*)
米歇尔·马库斯:好的,但这里的程序输出应该是数据段的术语:0, 495, 6174, 53955, 59994, 61974, 62964, 63954, ....
约尔格·阿恩特:程序应给出顺序。对于给定的程序来说是这样的吗?
何塞·德·杰苏斯·卡马乔·麦地那:是对任意数字的测试,生成kaprekar常数。问候语!
米歇尔·马库斯我没有数学课。你能解释一下吗?例如,当前程序的输出是什么?
何塞·德·杰苏斯·卡马乔·麦地那:确定
何塞·德·杰苏斯·卡马乔·麦地那:对于案例3471b[1]=3471;b[f_]:=FromDigits[Sort[IntegerDigits[b[f-1]],Greater]]-FromDigets[Sort[Integer Digits[1]]]表[b[f],{f,1,10}]结果是:{3471, 6084, 8172, 7443, 3996, 6264, 4176, 6174, 6174, 6174}我们到达6174号
何塞·德·杰苏斯·卡马乔·麦地那:案件73916我们获得了:{73916, 83952, 74943, 62964, 71973, 83952, 74943, 62964, 71973, 83952, 74943, \62964, 71973, 83952, 74943}
(* 测试数字循环的递归公式. 对于 例子: *)
例如:
表[b[f],{f,1,10}]- _(* _Joséde Jesús Camacho Medina,2014年7月27日 *)