但是版主，我看运行出来的结果少了一行。你提供的数据有9行不同的数据，我只运行显示出8行不同的数据。
还有就是用select count(distinct *) 来做，编译出错!

路过~~~~~·

热闹热闹，看看对不对

好东西啊，谢谢

不明白，感觉第一个问题，直接用proc sort 加option nodup就可以搞定
第二个问题，先用symput 计算出最大值
然后在data步中，引用宏变量就可以搞定。

31# pinggutu
少了一个0
if (x1=y1=z1=j1=0)=0 then output;
n=attrn(open('work.b','i'),'nobs');
run;

33# soporaeternus
127  data a;
128  input x y z j@;
129  cards;
NOTE: 数据集 WORK.A 有 13 个观测和 4 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.00 秒

143  ;
144  run;
145  proc sort data=a out=a;
146  by x y z j;
147  run;
NOTE: 有 13 个从数据集 WORK.A 读取的观测。
NOTE: 数据集 WORK.A 有 13 个观测和 4 个变量。
NOTE: “PROCEDURE SORT”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.00 秒

148  data b;
149  set a;
150  retain n 0;
151  x1=dif(x);
152  y1=dif(y);
153  z1=dif(z);
154  j1=dif(j);
155  if (x1=y1=z1=j1=0)=0 then output;
156  n=attrn(open('work.b','i'),'nobs');
157  run;
NOTE: 有 13 个从数据集 WORK.A 读取的观测。
NOTE: 数据集 WORK.B 有 9 个观测和 9 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.01 秒
      CPU 时间          0.01 秒



158  data aa;
159
160  if _N_=1 then do;
161
162  declare hash h();
163
164  h.definekey("x","y","z","j");
165
166  h.definedata("x","y","z","j");
167
168  h.definedone();
169
170  end;
171
172  set a;
173
174  rc=h.find();
175
176  if rc ^=0 then do;
177
178          h.add();
179
180          output;
181
182  end;
183
184  run;
NOTE: 有 13 个从数据集 WORK.A 读取的观测。
NOTE: 数据集 WORK.AA 有 9 个观测和 5 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.29 秒
      CPU 时间          0.03 秒

帮你顶上去

37# crackman
我看到运行时间的差别了。
在9.1.3中貌似没有item_size函数来获得hash对象的个数，所以我让其遍历了一次全表，性能肯定低很多

路过    顶下

35# liudeng2005
sort的nodup，我怎么没想到......
估计是陷入惯性思维了

data p;
input x @@;
cards;
1 2 3 4
1 2 3 4
1 3 3 2
1 3 2 1
;
proc freq;
run;
***************************************************************
                   x    Frequency     Percent     Frequency      Percent
                     
                      1           5       31.25             5        31.25
                      2           4       25.00             9        56.25
                      3           5       31.25            14        87.50
                      4           2       12.50            16       100.00
***********************************************************************;

一头晕    哎呀

学习，我也没有SAS，只有spss

不太清楚 加油！

data a;
input x y z j@;
cards;
1 2 3 5
2 3 4 5
1 2 3 4
8 7 6 5
2 3 4 5
1 2 3 4
9 8 6 5
4 5 6 7
7 8 6 5
2 3 9 8
9 8 6 5
1 0 9 6
8 7 6 5
;
run;
proc sort data=a out=a nodup;
by x y z j;
run;

第一个问题的最优答案

呵呵...NOdup前不久也用过的,刚好在little sas 里面看到了,就解决了一个实际问题