Rosetta Code

Jensen's Device: Difference between revisions

Page Discussion

Jensen's Device (view source)

Revision as of 05:21, 22 November 2008

33 bytes removed ,  15 years ago
→‎{{header|OCaml}}
Line 146:
 
=={{header|OCaml}}==
{{trans|Python}}
<ocaml>let i = ref 42 (* initial value doesn't matter *)
 
let sum' i lo hi term =
let recresult aux= accref =0. in
if !i > hi:= thenlo;
while !i acc<= hi do
auxresult (acc:= !result +. term ());▼
else begin
incr i;
done;
▲ aux (acc +. term ())
end!result
in
i := lo - 1;
aux 0.
 
let () =
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/88725"