Gray code: Difference between revisions

No edit summary
(→‎{{header|OCaml}}: using bytes)
Line 3,639:
 
let bool_string len n =
let s = StringBytes.make len '0' in
let rec aux i n =
if n land 1 = 1 then sBytes.[i]set <-s i '1';
if i <= 0 then (Bytes.to_string s)
else aux (pred i) (n lsr 1)
in