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

11 lines
283 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fizzbuzz_template1 =>
println(fizzbuzz_template1),
N = 100,
F = [_,_,fizz,_,buzz,fizz,_,_,fizz,buzz,_,fizz,_,_,fizzbuzz],
FF = [F : _I in 1..1+N div F.length].flatten(),
foreach(I in 1..N)
(var(FF[I]) -> print(I) ; print(FF[I])),
print(" ")
end,
nl.