%macro test(list=);
   %let n=%eval(%sysfunc(count(&list,%str( )))+1);

   data test;
       array v {&n};
           array tmp {&n} _temporary_ (&list);
           do i=1 to &n;
              do j=1 to &n;
                     v(j)=tmp(abs(j-i)+1);
                  end;
                 output;
            end;
                drop i j;
        run;
%mend;
%test(list=16 8 4 2)
%test(list=4 8 12 900 88)
%test(list=1 2 3 4 5 6 7)

%let n=4;
data test;
   array v(&n);
   do i=1 to &n;
      do j=1 to &n;
              v(j)=2**(&n-abs(j-i));
      end;
          output;
   end;
   drop i j;
run;

proc iml;
        n=4;
        A=toeplitz(2##(n:1));
        print A;
quit;

吊炸天

感谢您的回答！
但是我想实现的是输入任意一串数据然后进行排列的macro，而非单纯实现例子中的矩阵，还请指教！