salary.fsx

// Learn more about F# at http://fsharp.net

let rate = 0.04
let baseSalary = 100000.

let baseYear = 2011

let salaries =
    Seq.unfold(fun (year, salary) -> 
                let nextYear, nextSalary = year + 1, salary * (1.0 + rate)
                //printfn "year = %i salary = %f" year salary
                Some((year, salary), (nextYear, nextSalary)))
                (baseYear, baseSalary)

let year, salary = Seq.find (fun (_, salary) -> salary > 1e6) salaries

printfn "year = %i salary = %f" year salary