TPK algorithm: Difference between revisions

Revision as of 19:00, 23 May 2012

Revision as of 19:02, 23 May 2012

Line 134:

<source lang="ocaml">

let tpk () =

let f x = sqrt x +. 5.0 *. (x ** 3.0) in

let pr fv = print_endline (if fv > 400.0 then "overflow" else string_of_float fv) in

let a = Array.init 11 (fun _ -> read_float ()) in

for i = 10 downto 0 do