Sha256: 64871373fea91a667a5702efa2d16ff49edd4dcbdb8bf174579617f64257d301
Contents?: true
Size: 672 Bytes
Versions: 387
Compression:
Stored size: 672 Bytes
Contents
module SpaceAge (Planet(..), ageOn) where
data Planet = Mercury
| Venus
| Earth
| Mars
| Jupiter
| Saturn
| Uranus
| Neptune
ageOn :: Real a => Planet -> a -> Rational
ageOn planet seconds = toRational seconds / (earthPeriod * planetMultiplier)
where
planetMultiplier = case planet of
Mercury -> 0.2408467
Venus -> 0.61519726
Earth -> 1
Mars -> 1.8808158
Jupiter -> 11.862615
Saturn -> 29.447498
Uranus -> 84.016846
Neptune -> 164.79132
earthPeriod = 31557600
Version data entries
387 entries across 387 versions & 1 rubygems