RosettaCodeData/Task/FizzBuzz/Picat/fizzbuzz-1.picat
2023-07-01 13:44:08 -04:00

10 lines
241 B
Text

fizzbuzz_map =>
println(fizzbuzz_map),
FB = [I : I in 1..100],
Map = [(3="Fizz"),(5="Buzz"),(15="FizzBuzz")],
foreach(I in FB, K=V in Map)
if I mod K == 0 then
FB[I] := V
end
end,
println(FB).