Contents

module SpaceAge

open System

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

let secondsOnEarth = 31557600.0   

let planetPeriods = 
    [Mercury, 0.2408467;
     Venus,   0.61519726;
     Earth,   1.0;
     Mars,    1.8808158;
     Jupiter, 11.862615;
     Saturn,  29.447498;
     Uranus,  84.016846;
     Neptune, 164.79132] 
    |> Map.ofList

let age planet (seconds: int64) = 
    let yearsUsingPeriod (period: float) = Math.Round((float seconds / period) / secondsOnEarth, 2)
        
    yearsUsingPeriod planetPeriods.[planet]

Version data entries

78 entries across 78 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.179	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.178	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.177	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.176	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.175	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.174	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.173	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.172	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.171	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.170	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.169	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.167	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.166	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.165	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.164	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.163	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.162	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.161	tracks/fsharp/exercises/space-age/Example.fs
trackler-2.2.1.160	tracks/fsharp/exercises/space-age/Example.fs