编辑代码

let integral f =
let n = 100 in
let s = ref 0.0 in
for i = 0 to n-1 do
	let x = float i /. float n in
	s := !s +. f x
done;
!s /. float n ;;

integral sin;;