Submission of Module 3 - Assignment

Module3AssignmentProblem.fs

open System

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

let GetValues =
    Console.Write("How many numbers would you like to enter? ")
    let count = Console.ReadLine();
    let count = int count

    let values = [
        if count > 0 then
            for i = 1 to count do
                Console.Write(String.Format("Enter value #{0}: ", i));
                let value = Console.ReadLine()
                yield (float value) ]

    values

let CalculateGoldenRatio value = 
    value * GoldenRatio

let GetGoldenRatioTuples (values : list<float>) =
    [
        for i in values do
            yield (i, (CalculateGoldenRatio i)) ]

[<EntryPoint>]
let main argv =
    let values = GetValues
    let tuples = GetGoldenRatioTuples values

    for i = 0 to tuples.Length - 1 do
        let x, y = tuples.Item(i)
        Console.WriteLine(String.Format("{0}: {1}", x, y))

    Console.ReadKey()

    0