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

8 lines
139 B
Text
Raw Permalink Normal View History

2023-12-16 21:33:55 -08:00
f[n_] := f[n, Mod[n, {3, 5}]]
f[_, {0, 0}] := "FizzBuzz"
f[_, {0, _}] := "Fizz"
f[_, {_, 0}] := "Buzz"
f[n_, {_, _}] := n
f /@ Range[100]