TPK algorithm: Difference between revisions

Revision as of 19:02, 23 May 2012

Revision as of 19:03, 23 May 2012

Line 147:

<source lang="ocaml">

let tpk l =

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

let p x = x < 400.0 in

List.filter p (List.map f (List.rev l))

</source>