选择排序法和冒泡排序法的SAS实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

对于排序问题，有两个经典的算法：选择排序法和 冒泡排序法。

这两种算法的各种主流编程语言（C,C++,C#,JAVA）的实现版本都有。

下面以SAS语言为例，实现这两种算法。

http://blog.sina.com.cn/s/blog_41889b900101p3yx.html

1. data _null_;
   
2. array  a[7]  (95 93 92 99 98 85 94);
   
3. /* selection sort*/
   
4. do i=1 to dim(a)-1;
   
5.   min=i;
   
6.   do j=i+1  to dim(a);
   
7.       if (a[min]>a[j])  then  do;
   
8.             min=j;
   
9.             tmp=a[i]; a[i]=a[min]; a[min]=tmp;
   
10.            end;
    
11.         end;
    
12. end;
    
13. /*print sorted array*/
    
14. do i=1 to dim(a);
    
15.     put a[i];
    
16. end;
    
17. run;

复制代码

1. data _null_;
   
2. array  a[7]  (95 93 92 99 98 85 94);
   
3. /* bubble sort*/
   
4. do i=1 to dim(a);
   
5.   do j=1  to dim(a)-i;
   
6.        if a[j]>a[j+1] then do;
   
7.            tmp=a[j]; a[j]=a[j+1];a[j+1]=tmp;
   
8.            end;
   
9. end;
   
10. end;
    
11. /*print sorted array*/
    
12. do i=1 to dim(a);
    
13.   put a[i];
    
14. end;
    
15. run;

复制代码

其实如果不是为了好玩，SAS有简单的例程可以实现。

1. data   _null_;
   
2.   array  a[7]  (95 93 92 99 98 85 94);
   
3.   call sortn(of a[*]);
   
4.   do i=1 to dim(a);
   
5.      put a[i];
   
6. end;
   
7. run;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：冒泡排序法 选择排序法 Selection Election sorted 编程语言 经典的 null JAVA

版主知道SAS的proc rank用的什么方法排序吗？
我觉得SAS干什么都不快
但是排序真的很快
快速排序吗？

playmore 发表于 2013-6-25 13:29
版主知道SAS的proc rank用的什么方法排序吗？
我觉得SAS干什么都不快
但是排序真的很快

这个还真没留意过，没研究这么深啊。

webgu 发表于 2013-6-25 21:49
这个还真没留意过，没研究这么深啊。

嗯，版主你给的算法都是对array排序的
这种类似于序列或矩阵的运算我觉得都不是SAS的强项

版主有没有兴趣用IML做一个最简单的对Dataset的排序？
用起泡法就行
然后和proc sort比较下

playmore 发表于 2013-6-26 08:42
嗯，版主你给的算法都是对array排序的
这种类似于序列或矩阵的运算我觉得都不是SAS的强项

呵呵，好。有空折腾下。 IML用得不熟。

楼主有其它排序算法的sas代码吗比如堆排序、插入排序等等