7 lines
163 B
Text
7 lines
163 B
Text
SetAttributes[f,Listable]
|
|
f[n_ /; Mod[n, 15] == 0] := "FizzBuzz";
|
|
f[n_ /; Mod[n, 3] == 0] := "Fizz";
|
|
f[n_ /; Mod[n, 5] == 0] := "Buzz";
|
|
f[n_] := n;
|
|
|
|
f[Range[100]]
|