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

3 lines
70 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let rec loop n = if n > 0 then printf "%d " n; loop (n / 2)
loop 1024