RosettaCodeData/Task/Loops-While/F-Sharp/loops-while.fs

3 lines
70 B
Forth

let rec loop n = if n > 0 then printf "%d " n; loop (n / 2)
loop 1024