神奇的6174数字

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大千世界，无奇不有，有些数字虽然其貌不扬，但摇身一变，就会变成一条令人费解的规律。

    有一次，我看到这样一句话：把6174这个数从大到小排列，再从小到大排列，然后用大数减小数，结果还得6174这个数，我很疑惑：怎么会这样呢？我试验了一下：7641-1467=6174

哈哈，果然如此！

    不止这样，还有更有趣的：任何一个四位数，只要四个数字都不相同，用上面的方法重复多次，结果还得6174。我不相信，又试验了一番后，还真是这样，我们用5678来做个试验：

8765-5678=3087

8730-378=8352

                            8532-2358=6174

再来看看5976这个数：

9765-5679=4086

8640-468=8172

8721-1278=7443

7443-3447=3996

9963-3699=6264

6642-2466=4176

7641-1467=6174

怎么？你还不信？那就再来看看这个数：8563

8653-3568=5085

8550-558=7992

9972-2799=7173

7731-1377=6354

6543-3456=3087

8730-378=8352

8532-2358=6174

看！还是等于6174！

    那除了6174，还有没有一步就算出来的呢？有，我们来看看8264这个数：

8642-2468=6174

我们再举一个例子：1630

6310-136=6174

论坛牛人能把从1001到9999的所有数字都通过SAS编程，经过几步运算之后达到6174的结果吗？

要求最后输出一个数据集。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：SAS编程 论坛牛人 无奇不有 大千世界 从小到大

9999怎么破

1111、2222、3333、4444、5555、6666、7777、8888、9999这9个数值都是要在程序中被特殊处理的，可以用if来搞定。

有意思！6174有没有用特别使命呢？

1. %macro a;
   
2. data a;
   
3.         array num num1-num8;;
   
4.         do num1=1001 to 9999;
   
5.                 %do i=2 %to 8;
   
6.                         n1=int(num%eval(&i-1)/1000);
   
7.                         n2=int(num%eval(&i-1)/100)-n1*10;
   
8.                         n3=int(num%eval(&i-1)/10)-n1*100-n2*10;
   
9.                         n4=num%eval(&i-1)-n1*1000-n2*100-n3*10;
   
10.                 if max(of n1-n4)=min(of n1-n4) then continue;
    
11.                         call sortn(of n1-n4);
    
12.                         num&i=(n4-n1)*999+(n3-n2)*90;
    
13.                 %end;
    
14.                 output;
    
15.         end;
    
16. run;
    
17. %mend;
    
18. %a;
    
19.                

复制代码

孤单的我们 发表于 2016-4-22 13:27

太强了，

牛人多

孤单的我们 发表于 2016-4-22 13:27

proc print;run;
看了结果，厉害

%macro M_495;
data b495;
        array num num1-num7;
        do num1=101 to 999;
                %do i=2 %to 7;
                        n1=int(num%eval(&i-1)/100);
                        n2=int(num%eval(&i-1)/10)-n1*10;
                        n3=num%eval(&i-1)-n1*100-n2*10;
                if max(of n1-n3)=min(of n1-n3) then continue;
                        call sortn(of n1-n3);
                        num&i=(n3-n1)*99;
                %end;
                output;
        end;
run;
%mend;
%M_495;
proc print;run;

三位数的

其实，还有5位数的，6位数的，7位数的，这是一个没有极限的推理