Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# LANGUAGE LambdaCase #-}
- data Planet = Earth | Mercury | Venus | Mars | Jupiter | Saturn | Uranus | Neptune
- deriving (Eq)
- ageOn :: Planet -> Float -> Float
- ageOn = flip (/) . (earthSecondsPerYear *) . earthSecondsFor
- where
- earthSecondsPerYear = 31557600
- earthSeconds =
- \case Earth -> 1
- Mercury -> 0.2408467
- Venus -> 0.61519726
- Mars -> 1.8808158
- Jupiter -> 11.862615
- Saturn -> 29.447498
- Uranus -> 84.016846
- Neptune -> 164.79132
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement