产生10个 1到365的随机数，想判断这十个数中是否有重复，有则令b为1，将这一过程重复10次。程序如下：
data d(drop=k i j t);
array y(10);
do t=1 to 10;
array x(10);
do k=1 to 10;
x(k)=int(365*uniform(0)+1);
end;
output;
do i=1 to 9;
do j=i+1 to 10;
b=x(i)=x(j);
if b=1 then goto k;
end;
end;
k:y(t)=b;
end;
run ;
proc print;run;
你好！你的output语句应该放在最后一个end之前，这样才能保证这一个data步总所有pdv中的值得以输出；你的output放在数组赋值之下，这样在输出中只输出当前pdv中数组的值，而b的值是上一步data循环下来的滞留值（实际上如果你的b值有一个为1你就会发现b=1这一行并没有重复值，有重复值的是上一行）。这也解释了为什么你的第一个b值为缺失。这是output语句的一个特殊性质，你可以参考一下相关资料，你需要的程序应该为酱紫的（由于你只需要b值，所以这里也对你的程序做了简化）：
data d(drop=k i j t v);
do t=1 to 10;
array x(10);
do k=1 to 10;
x(k)=int(365*uniform(0)+1);
end;
do i=1 to 9;
do j=i+1 to 10;
b=x(i)=x(j);
if b=1 then goto k;
end;
end;
k:v="find";
output;
end;
扫码加好友，拉您进群
全部版块
我的主页
收藏
