如何统计取值不同的列的个数 [推广有奖]

自己把这个帖子顶上去

data c;
   array seg[10];
   do i=1 to 20;
      do j=1 to 10;
             seg(j)=int(ranuni(0)*10);
          end;
          output;
   end;
run;

data d;
        set c;
        array seg[10] seg1-seg10;
        value_num=0;
        length str $200;
        do i=1 to 10;
           if indexw(cats(str),cats(seg(i)),"*")=0 then do;
              value_num+1;
              str=catx("*",str,seg(i));
                end;
        end;
        put str= value_num=;
        drop i j;
run;

/*  Here is another way  */
data c;
   array seg[10];
   do i=1 to 10;
      do j=1 to 10;
         seg(j)=int(ranuni(123)*10);
      end;
      output;
   end;
   drop i j;
run;

data D1;
   set c;
   array seg{10} seg1-seg10;
   length numbers $20;
   call sortn(of seg:);
   Distinct_N =1;
   numbers = seg(1);
      do i = 1 to dim(seg)-1;
         if seg(i) ^= seg(i+1) then do;
         Distinct_N+1;
         numbers= catx('_', numbers, seg(i+1));
         end;
      end;
  set c;   
  drop i;
run;

噢啦，thank u~~~~SAS跳出循环是一门大学问的说~~~

本问题已解决