elm/exercises/space-age/SpaceAge.example.elm

module SpaceAge exposing (..)


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


earthYearInSeconds =
    365.25 * 24 * 60 * 60


ageOn : Planet -> Float -> Float
ageOn planet seconds =
    seconds / (secondsPerYear planet)


secondsPerYear : Planet -> Float
secondsPerYear planet =
    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
Update elm-package.json and .elm files to support Elm 0.17 2016-05-13 02:26:52 +00:00			`module SpaceAge exposing (..)`
Add SpaceAge example and test 2016-03-17 01:36:23 +00:00

Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00			`type Planet`
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`= Mercury`
			`\| Venus`
			`\| Earth`
			`\| Mars`
			`\| Jupiter`
			`\| Saturn`
			`\| Uranus`
			`\| Neptune`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00

			`earthYearInSeconds =`
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`365.25 * 24 * 60 * 60`
Add SpaceAge example and test 2016-03-17 01:36:23 +00:00

			`ageOn : Planet -> Float -> Float`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00			`ageOn planet seconds =`
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`seconds / (secondsPerYear planet)`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Add SpaceAge example and test 2016-03-17 01:36:23 +00:00
			`secondsPerYear : Planet -> Float`
			`secondsPerYear planet =`
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`earthYearInSeconds`
			`* case planet of`
			`Mercury ->`
			`0.2408467`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Venus ->`
			`0.61519726`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Earth ->`
			`1`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Mars ->`
			`1.8808158`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Jupiter ->`
			`11.862615`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Saturn ->`
			`29.447498`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Uranus ->`
			`84.016846`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
Run pre Elm 0.17 exercises through elm-format version 0.3.0-alpha 2016-06-19 21:46:13 +00:00			`Neptune ->`
			`164.79132`