- data _null_;
- array x[6] $1. ('c' 'd' 'e' 'f' 'g' 'h');
- n = dim(x);
- k = 4;
- ncomb = comb(n, k);
- do j = 1 to ncomb + 1;
- rc = allcomb(j, k, of x[*]);
- call symput(strip("X") || strip(j), strip("a b") || " " || strip(x1) || " " || strip(x2) || " " || strip(x3) || " " || strip(x4));
- end;
- run;
- %put _user_;


雷达卡





京公网安备 11010802022788号







