Hi,
Not sure if it is due to Rick's articles about or not but I received two good answers from Bing Chat to implement FizzBuzz. I suppose it knows now the discussion :-D

Cheers.

Here my question on setting MorePrecise. Q: [Act as an expert SAS programmer] write the most efficient SAS program to solve the FizzBuzz quiz.

First answer:
data _null_;
do i = 1 to 100;
if mod(i, 15) = 0 then put 'FizzBuzz';
else if mod(i, 3) = 0 then put 'Fizz';
else if mod(i, 5) = 0 then put 'Buzz';
else put i;
end;
run;

My additional request: I would like the output to be in the output window not in log. Furthermore, please make it reusable, so I can give another upper limit.
Answer:
%macro FizzBuzz(n);
data FizzBuzz;
do i = 1 to &n;
if mod(i, 15) = 0 then result = 'FizzBuzz';
else if mod(i, 3) = 0 then result = 'Fizz';
else if mod(i, 5) = 0 then result = 'Buzz';
else result = put(i, 8.);
output;
end;
run;
proc print data=FizzBuzz noobs;
var result;
run;
%mend;

%FizzBuzz(100);