RosettaCodeData/Task/FizzBuzz/Mathematica/fizzbuzz-2.math
2023-07-01 13:44:08 -04: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"}