求助sas新建变量的问题

大家好，
有个数据集有12个变量var1-var10，其中3个为一组，一共4组。

       (var1 var2 var3 )(var4 var5 var6 )(var7 var8 var9 )(var10 var11 var12)

现在想新建立一些变量new1-new8和var变量相对应，分为4组，2个为一组
关系为：


new1=var2-var1      
new2=var3-var1


new3=var5-var4
new4=var6-var4


new5=var8-var7
new6=var9-var7


new7=var11-var10
new8=var12-var10

请问不采用一个一个输入，有何技巧可以实现？（实际上一共有100多变量，为了方便，简写为12个）
多谢！

1. data test;
   
2.     input var1-var12;
   
3.     array oldvar{4,3} var1-var12;
   
4.     array newvar{4,2:3} newvar1-newvar8;
   
5.     do i=1 to dim1(oldvar);
   
6.         do j=2 to dim2(oldvar);
   
7.             newvar(i,j)=oldvar(i,j)-oldvar(i,1);
   
8.         end;
   
9.     end;
   
10.     drop i j;
    
11. cards;
    
12. 1 2 3 4 4 2 1 2 4 2 4 9
    
13. 2 3 4 1 3 4 9 2 4 1 8 5
    
14. ;

复制代码

可以用数组。


data test;
   input var1-var12;
   array var{12} var1-var12;
   array newvar{8} newvar1-newvar8;

   do i=1 to dim(var)/3;
      base=(i-1)*3+1;
      newvar(i*2-1)=var(base+1)-var(base);
      newvar(i*2)=var(base+2)-var(base);
   end;
   drop i base;
   cards;
1 2 3 4 4 2 1 2 4 2 4 9
2 3 4 1 3 4 9 2 4 1 8 5
;
run;