Anonymous user
Gray code: Difference between revisions
→{{header|OCaml}}: using bytes
No edit summary |
(→{{header|OCaml}}: using bytes) |
||
Line 3,639:
let bool_string len n =
let s =
let rec aux i n =
if n land 1 = 1 then
if i <= 0 then (Bytes.to_string s)
else aux (pred i) (n lsr 1)
in
|