hallo zusammen,
es hat sich gerade gezeigt, dass die String-Funktionen zum separieren der Zahlen deutlich schneller sind und das will ich Euch natürlich nicht vorenthalten 😉
data _null_;
array a{11} a1 - a11;
do i=18990000000 to 99999999999;
c = put(i,best.);
do j=1 to 11;
a(j) = ifn(length(c)>=j, input(substr(c,j,1),best.), .);
end;
if mod(sum(of a0-a10),10)=0 and lag(mod(sum(of a0-a10),10))=0 then do;
i=i-1;
put i= commax15.0;
stop;
end;
end;
run;
ein schönes Wochenende! Heide
... View more