小白请教下循环终止的问题，求助

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这是网上的一个题目，我想用SAS循环实现，但未成功，麻烦高人看下代码哪里的问题。

1. data a;
   
2.         do a=1 to 9 until (x=y);
   
3.                 do b= 1 to 9;
   
4.                         do c= 1 to 9;
   
5.                                 do d=1 to 9;
   
6.                                         do e = 1 to 9;
   
7.                                                 do f= 1 to 9;
   
8.                                                         do g =1 to 9;
   
9.                                                                 do h=1 to 9;
   
10.                                                                         do i= 1 to 9 ;
    
11. x=(a*100000000+b*10000000+c*1000000+d*100000+e*10000+f*1000+g*100+h*10+i)+864197532;
    
12. y=(i*100000000+h*10000000+g*1000000+f*100000+e*10000+d*1000+c*100+b*10+a);
    
13.                                                                         end;
    
14.                                                                 end;
    
15.                                                         end;
    
16.                                                 end;
    
17.                                         end;
    
18.                                 end;
    
19.                         end;
    
20.                 end;
    
21.         end;
    
22. run;

复制代码

跑到123456789时，应该是达到条件的，但未终止。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：until Data End Run 网上

看我的：

data a;
        do a=1 to 9 ;
                do b= 1 to 9;
                        do c= 1 to 9;
                                do d=1 to 9;
                                        do e = 1 to 9;
                                                do f= 1 to 9;
                                                        do g =1 to 9;
                                                                do h=1 to 9;
                                                                        do i= 1 to 9 ;
x=(a*100000000+b*10000000+c*1000000+d*100000+e*10000+f*1000+g*100+h*10+i)+864197532;
y=(i*100000000+h*10000000+g*1000000+f*100000+e*10000+d*1000+c*100+b*10+a);
if x=y then do;
   output;
   stop;
end;
                                                                        end;
                                                                end;
                                                        end;
                                                end;
                                        end;
                                end;
                        end;
                end;
        end;
run;

proc print data=a;run;

结果：
a b c d e f g h i   x               y
11 1 1 1 3 5 7 9 975311111 975311111

个人表示，压力大桑达啊 ，嘿嘿 ，学习了，，

PhoenixHuang 发表于 2013-9-27 17:57
看我的：

data a;

学习了，哈

如果0也算的话,共有1920个解.轻易终止循环,也未必合理
....
明白了,数字必须是不同的
京剧.....

jingju11 发表于 2013-9-28 20:55
如果0也算的话,共有1920个解.轻易终止循环,也未必合理
....
明白了,数字必须是不同的

确实，是要求不同的数字，当时没想到会有这么多的解……

题目和代码都挺有意思，学习了。