https://ankitbahuguna.xyz/tags/benchmarking/ Recent content in benchmarking on ankit bahuguna Hugo -- gohugo.io en Thu, 24 Aug 2023 18:48:12 +0530 https://ankitbahuguna.xyz/posts/benchmarking-recursive-and-tail-recursive-functions-in-ocaml/ Thu, 24 Aug 2023 18:48:12 +0530 https://ankitbahuguna.xyz/posts/benchmarking-recursive-and-tail-recursive-functions-in-ocaml/ This post is a continuation of the my last post . I did some benchmarking for recursive and non-recursive version of sum function. open Unix (* Tail recursive version *) let min_list_tail lst = let rec min_tail lst acc = match lst with | [] -> acc | h :: t -> min_tail t (if h < acc then h else acc) in match lst with | [] -> failwith "Empty list" | h :: t -> min_tail t h (* Non-tail recursive version *) let rec min_list_non_tail = function | [] -> failwith "Empty list" | [x] -> x | h :: t -> let min_tail = min_list_non_tail t in if h < min_tail then h else min_tail let generate_large_list size = List.