Module 3 Assignment

module_3.fs

let calculateRatio x = x * goldenRatio

let getValue (index: int32) =
    Console.WriteLine("Enter value " + index.ToString());
    Console.ReadLine()

let getValues count =
    let result =
        [ for i in 1 .. count -> float(getValue(i))]
    result



[<EntryPoint>]    
let main argv =
    Console.Write("How many values would you like to input? ")
    let valueCount = Int32.Parse(Console.ReadLine())
    let values = getValues valueCount
    let result = 
        [for index in 0 .. (valueCount-1) -> (values.[index], calculateRatio(float values.[index]))]

    result |> List.iter (fun r -> Console.WriteLine(r))

    0 // return an integer exit code