Source file `math.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
open Common

(*****************************************************************************)
(* Prelude *)
(*****************************************************************************)

(*****************************************************************************)
(* Constants *)
(*****************************************************************************)

(* src: Jon Harrop *)
let pi = 4. *. atan 1.