RosettaCodeData/Task/Loops-Do-while/Fortress/loops-do-while.fortress

16 lines
210 B
Text
Raw Permalink Normal View History

2018-06-22 20:57:24 +00:00
component loops_do_while
export Executable
var x:ZZ32 = 0
run() = label loop
while true do
x += 1
println(x)
if (x MOD 6) = 0
then exit loop
end
end
end loop
end