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

6 lines
83 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let n = ref 1024;;
while !n > 0 do
Printf.printf "%d\n" !n;
n := !n / 2
done;;