edx-module3.fs

open System

let ratio = (1.0 + Math.Sqrt(5.0)) / 2.0

let inputInt (prompt: String) = 
    Console.WriteLine(prompt)
    int (Console.ReadLine())

let inputFloat (prompt: String) = 
    Console.WriteLine(prompt)
    float (Console.ReadLine())

let inputValues cnt = 
    let rec inputValues cnt acc =
        if cnt = 0 then
            List.rev acc
        else
            inputValues ( cnt - 1) ((inputFloat "value: ") :: acc)
    inputValues cnt []

[<EntryPoint>]    
let main argv =
    let numberOfValues = inputInt "how many of values:"
    let values = inputValues numberOfValues
    let results = List.map (fun x -> (x, x * ratio)) values

    for x in results do
        printfn "%A" x

    Console.ReadKey()

    0