Commit 30459d5f authored by Benoit Barbot's avatar Benoit Barbot
Browse files

prog

parent e46bc118
Pipeline #982 passed with stage
in 30 seconds
......@@ -82,7 +82,7 @@ let float_buff b pos =
p, ((float_of_int f) /. 100.)
let check f =
(*let check f =
let t = Buffer.create 10 in
buff_float t f;
let str = (Bytes.to_string @@ Buffer.to_bytes t) in
......@@ -107,7 +107,7 @@ let _ =
let p1,i1= int_buff str !pos in
pos := p1;
print_endline (string_of_int i1);
done
done*)
let buff_string b str =
let n = String.length str in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment