RosettaCodeData/Task/FizzBuzz/Mathematica/fizzbuzz-2.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
162 B
Text

fizz[i_] := Mod[i, 3] == 0
buzz[i_] := Mod[i, 5] == 0
Range[100] /. {i_ /; fizz[i]&&buzz[i] :> "FizzBuzz", \
i_?fizz :> "Fizz", i_?buzz :> "Buzz"}