RosettaCodeData/Task/Loops-While/OCaml/loops-while-2.ml

7 lines
103 B
OCaml
Raw Permalink Normal View History

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