RosettaCodeData/Task/Loops-While/Standard-ML/loops-while-1.ml

6 lines
90 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
val n = ref 1024;
while !n > 0 do (
print (Int.toString (!n) ^ "\n");
n := !n div 2
)