TPK algorithm: Difference between revisions

Revision as of 19:03, 23 May 2012

Revision as of 14:06, 6 June 2012

Line 149:

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

let p x = x < 400.0 in

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

</source>