RosettaCodeData/Task/FizzBuzz/Mathematica/fizzbuzz-5.math
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00:00

1 line
108 B
Text

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