RosettaCodeData/Task/FizzBuzz/Metafont/fizzbuzz.metafont

8 lines
153 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
for i := 1 upto 100:
message if i mod 15 = 0: "FizzBuzz" &
elseif i mod 3 = 0: "Fizz" &
elseif i mod 5 = 0: "Buzz" &
else: decimal i & fi "";
endfor
end