Contents

module SpaceAge (Planet(..), ageOn) where

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

type Seconds = Double
type Years = Double

ageOn :: Planet -> Seconds -> Years
ageOn planet seconds = seconds / secondsPerYear planet

secondsPerYear :: Planet -> Seconds
secondsPerYear planet = earthYear * 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
  where earthYear = 365.25 * 24 * 60 * 60

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.0.0.5	tracks/haskell/exercises/space-age/examples/success-double/src/SpaceAge.hs
trackler-2.0.0.4	tracks/haskell/exercises/space-age/examples/success-double/src/SpaceAge.hs
trackler-2.0.0.3	tracks/haskell/exercises/space-age/examples/success-double/src/SpaceAge.hs
trackler-2.0.0.2	tracks/haskell/exercises/space-age/examples/success-double/SpaceAge.hs
trackler-2.0.0.1	tracks/haskell/exercises/space-age/examples/success-double/SpaceAge.hs
trackler-2.0.0.0	tracks/haskell/exercises/space-age/examples/success-double/SpaceAge.hs
trackler-1.0.4.1	tracks/haskell/exercises/space-age/examples/success-double/SpaceAge.hs
trackler-1.0.4.0	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.3.0	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.2.1	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.2.0	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.1.2	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.1.1	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.1.0	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.0.1	tracks/haskell/exercises/space-age/src/Example.hs
trackler-1.0.0	tracks/haskell/exercises/space-age/src/Example.hs