module fs


open System
open System.Diagnostics;

[<EntryPoint>]
let sumTest(args) =
    let numsList = [0..10000000]
    let numsArray = [|0..10000000|]



    let stopWatch = new Stopwatch()

    stopWatch.Start()



    let sumsSeqReduce =
        Seq.reduce (+) numsList


    Console.WriteLine("reduce sequence of list = {0} - Time = {1}", sumsSeqReduce, stopWatch.ElapsedMilliseconds);
    stopWatch.Restart()


    let sumsArray =
        Array.reduce (+) numsArray


    Console.WriteLine("reduce array = {0} - Time = {1}", sumsArray, stopWatch.ElapsedMilliseconds);
    stopWatch.Restart()

    let sumsLoop =
        let mutable total = 0;
        for i in 0 .. 10000000 - 1 do
            total <- total + numsArray.[i]
        total

    Console.WriteLine("for loop array = {0} - Time = {1}", sumsLoop, stopWatch.ElapsedMilliseconds);
    stopWatch.Restart()

    let sumsListReduce =
        List.reduce (+) numsList


    Console.WriteLine("reduce list = {0} - Time = {1}", sumsListReduce, stopWatch.ElapsedMilliseconds);
    stopWatch.Restart()

    Console.ReadLine() |> ignore
    1