RosettaCodeData/Task/Loops-Do-while/F-Sharp/loops-do-while-1.fs

5 lines
75 B
Forth

let rec loop n =
printfn "%d " n
if (n+1)%6 > 0 then loop (n+1)
loop 0