OCaml > Paques

let paques y =
let g = (y mod 19) + 1 in
let c = y / 100 + 1 in
let x = 3 * c / 4 - 12
and z = (8 * c + 5) / 25 - 5 in
let d = 5 * y / 4 - x - 10 in
let e =
let tmp = (11 * g + 20 + z - x) mod 30 in
if tmp = 25 && g > 11 || tmp = 24 then tmp + 1 else tmp in
let n =
let tmp = 44 - e in
if tmp < 21 then tmp + 30 else tmp in
let j = n + 7 - ((d + n) mod 7) in
if j > 31 then (j - 31, "avril") else (j, "mars");;