fsharp-learning/exercism/fsharp/space-age/SpaceAge.fs

module SpaceAge

type Planet =
    | Mercury
    | Venus
    | Earth
    | Mars
    | Jupiter
    | Saturn
    | Uranus
    | Neptune

let age (planet: Planet) (seconds: int64): float =
    (/) (float (seconds))
        ((match planet with
          | Mercury -> 0.2408467
          | Venus -> 0.61519726
          | Mars -> 1.8808158
          | Jupiter -> 11.862615
          | Saturn -> 29.447498
          | Uranus -> 84.016846
          | Neptune -> 164.79132
          | _ -> 1.0)
         * 31557600.0)