✅ haskell: space-age

haskell/space-age/examples/success-rational/package.yaml

@@ -0,0 +1,16 @@
+name: space-age
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: SpaceAge
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - space-age
+      - hspec

haskell/space-age/examples/success-rational/src/SpaceAge.hs

@@ -0,0 +1,24 @@
+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