RosettaCodeData/Task/FizzBuzz/Picat/fizzbuzz-3.picat

14 lines
324 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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.