RosettaCodeData/Task/Numerical-integration/OCaml/numerical-integration-4.ocaml

8 lines
231 B
Plaintext

let () =
List.iter (fun (s,f,lo,hi,n) ->
Printf.printf "Testing function %s:\n" s;
List.iter (fun (name,meth) ->
Printf.printf " method %s gives %.15g\n" name (integrate f lo hi n meth)
) methods
) functions