RosettaCodeData/Task/Loops-While/ReScript/loops-while.re

6 lines
86 B
ReasonML
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let n = ref(1024)
while n.contents > 0 {
Js.log(n.contents)
n := n.contents / 2
}