13 lines
324 B
Text
13 lines
324 B
Text
fizzbuzz_template2 =>
|
|
println(fizzbuzz_template2),
|
|
N = 100,
|
|
F = new_list(N),
|
|
FV = [3,5,15],
|
|
FN = ["Fizz","Buzz","FizzBuzz"],
|
|
foreach(I in 1..N, {Val,Name} in zip(FV,FN))
|
|
if I mod Val == 0 then F[I] := Name end
|
|
end,
|
|
foreach(I in 1..N)
|
|
printf("%w ", cond(var(F[I]),I, F[I]))
|
|
end,
|
|
nl.
|