已经实现的代码如下:
data birth;
array b{30} b1-b30;
do i=1 %to 30 %by 1;
b{i}=ceil(uniform(123)*365);
end;
flag=0;
do k=1 %to 29;
  do m=k+1 %to 30;
  if b{k}=b{m} then flag=1;
  if flag=1 then leave;
  end;
if flag=1 then leave;
end;
put flag= ;
run;
proc print data=birth;
run;
求问怎么在这外面添加一个宏程序使得它能运作100次呢？然后我算概率的时候再平均一下。