2016-03-17 01:38:35 +00:00
|
|
|
module SpaceAge (..) where
|
2016-03-17 01:36:23 +00:00
|
|
|
|
|
|
|
|
|
2016-03-17 01:38:51 +00:00
|
|
|
type Planet
|
|
|
|
|
= Mercury
|
|
|
|
|
| Venus
|
|
|
|
|
| Earth
|
|
|
|
|
| Mars
|
|
|
|
|
| Jupiter
|
|
|
|
|
| Saturn
|
|
|
|
|
| Uranus
|
|
|
|
|
| Neptune
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
earthYearInSeconds =
|
|
|
|
|
365.25 * 24 * 60 * 60
|
2016-03-17 01:36:23 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
ageOn : Planet -> Float -> Float
|
2016-03-17 01:38:51 +00:00
|
|
|
ageOn planet seconds =
|
|
|
|
|
seconds / (secondsPerYear planet)
|
|
|
|
|
|
2016-03-17 01:36:23 +00:00
|
|
|
|
|
|
|
|
secondsPerYear : Planet -> Float
|
|
|
|
|
secondsPerYear planet =
|
2016-03-17 01:38:51 +00:00
|
|
|
earthYearInSeconds
|
|
|
|
|
* 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
|
