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

11 lines
241 B
Text
Raw Permalink Normal View History

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