mp2i-info/tp4/bin/exo3.ml

let prod l = List.fold_left (fun acc x -> acc *. x) 1. l;;

assert (abs_float (prod [1.5; 2.; 3.] -. 9.) <= 1e-14 );