OCaml

square root

(* square root function with fixed boundary *)
let sqroot x =
   let rec sqr r x =
      if abs_float ((r *. r) -. x) < 0.01 then r
      else sqr (((x /. r) +. r) /. 2.0) x
   in
   sqr 1.0 x

open source software

I contributed significantly to these projects: