问一个简单的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data a;
input x ;
cards;
1 2 4 5
2 1 6 3
5 4 3 4
1 3 2 6
;
run;
让值由大到小到小输出到另一个数据集x1-x4;

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：cards Input Data card 数据集

不是明白。。。

不明白？？？？？？？？？？？？？？？？？

不好意思！题目说的有点不对。
data a;
input x1-x4 ;
cards;
1 2 4 5
2 1 6 3
5 4 3 4
1 3 2 6
;
run;
出来的结果是：
x1 x2 x3 x4
5 4 2 1
6 3 2 1
5 4 4 3
6 3 2 1

没人会吗？？

data a(drop=temp);                                                                                                                     
input x1-x4;                                                                                                                           
if x2>x1 then do;                                                                                                                       
   temp=x1;x1=x2;x2=temp;                                                                                                               
end;                                                                                                                                    
if x3>x1 then do;                                                                                                                       
   temp=x1;x1=x3;x3=temp;                                                                                                               
end;                                                                                                                                    
if x4>x1 then do;                                                                                                                       
   temp=x1;x1=x4;x4=temp;                                                                                                               
end;                                                                                                                                    
if x3>x2 then do;                                                                                                                       
   temp=x2;x2=x3;x3=temp;                                                                                                               
end;                                                                                                                                    
if x4>x2 then do;                                                                                                                       
   temp=x2;x2=x4;x4=temp;                                                                                                               
end;                                                                                                                                    
if x4>x3 then do;                                                                                                                       
   temp=x3;x3=x4;x4=temp;                                                                                                               
end;                                                                                                                                    
cards;                                                                                                                                 
1 2 4 5                                                                                                                                 
2 1 6 3                                                                                                                                 
5 4 3 4                                                                                                                                 
1 3 2 6                                                                                                                                 
;                                                                                                                                       
run;

谢谢你！还有更优化的算法吗？

data a;
input x1-x4 ;
cards;
1 2 4 5
2 1 6 3
5 4 3 4
1 3 2 6
;
run;

proc iml;
        use a;
        read all into AA;
        B=T(AA);
        rowNum=nrow(B);
        do i=1 to rowNum;
                row=B[,i];
                call sort(row,{1},{1});
                AA[,i]=row;
                rowNum=rowNum+1;
        end;
        D=T(AA);
        create work.d from D;
        append from D;
        quit;

谢谢！谢谢！

data a;
input x1-x4 ;
cards;
1 2 4 5
2 1 6 3
5 4 3 4
1 3 2 6
;
run;

data b;
set a;
array x _all_;
do i=1 to 4;
do j=i to 4;
if x{i}<x{j} then do;
temp=x{i};x{i}=x{j};x{j}=temp;
end;end;end;
drop i j temp;
run;