RosettaCodeData/Task/FizzBuzz/Mathematica/fizzbuzz-5.math

2 lines
108 B
Plaintext

Which[ Mod[#,15] == 0, "FizzBuzz", Mod[#, 3] == 0, "Fizz", Mod[#,5]==0, "Buzz", True, #]& /@ Range[1,100]