5 lines
148 B
Text
5 lines
148 B
Text
output = swrite(format="%d", indgen(100));
|
|
output(3::3) = "Fizz";
|
|
output(5::5) = "Buzz";
|
|
output(15::15) = "FizzBuzz";
|
|
write, format="%s\n", output;
|