RosettaCodeData/Task/FizzBuzz/Mathematica/fizzbuzz-5.math
2023-07-01 13:44:08 -04:00

1 line
108 B
Text

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