Contents

open Base

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

let earth_years seconds = seconds /. 31557600.0

let rel_years = function
    | Mercury -> 0.2408467
    | Venus   -> 0.61519726
    | Earth   -> 1.
    | Mars    -> 1.8808158
    | Jupiter -> 11.862615
    | Saturn  -> 29.447498
    | Uranus  -> 84.016846
    | Neptune -> 164.79132

let age_on planet seconds =
    let seconds' = Float.of_int seconds in
    match planet with
    | Earth -> earth_years seconds' 
    | _     -> earth_years seconds' /. rel_years planet

Version data entries

68 entries across 68 versions & 1 rubygems

Version	Path
trackler-2.2.1.119	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.118	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.117	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.116	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.115	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.114	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.113	tracks/ocaml/exercises/space-age/example.ml
trackler-2.2.1.111	tracks/ocaml/exercises/space-age/example.ml