This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions

View file

@ -0,0 +1,11 @@
let n = 10000
let () =
while true do
let t0 = Unix.gettimeofday () in
for _i = 1 to n do
ignore @@ Fmt.str "Hello %a" Fmt.string "world"
done;
let t1 = Unix.gettimeofday () in
Printf.printf "Formatted %.0f messages/second\n%!" (float n /. (t1 -. t0))
done