4 lines
152 B
Text
4 lines
152 B
Text
Table[If[# === "", i, #]&@StringJoin[
|
|
Table[If[Divisible[i, First@nw], Last@nw, ""],
|
|
{nw, {{3, "Fizz"}, {5, "Buzz"}}}]],
|
|
{i, 1, 100}]
|