Contents

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

let earth_years = (seconds) => seconds /. 31557600.0;

let rel_years =
  fun
  | 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) => {
  earth_years(seconds) /. rel_years(planet)
};

Version data entries

16 entries across 16 versions & 1 rubygems

Version	Path
trackler-2.2.1.175	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.174	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.173	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.172	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.171	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.170	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.169	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.167	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.166	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.165	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.164	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.163	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.162	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.161	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.160	tracks/reasonml/exercises/space-age/src/Example.re
trackler-2.2.1.159	tracks/reasonml/exercises/space-age/src/Space_age.re