513_c_comp.fs

module Program

open Perf
open System
open System.Diagnostics

module Tortoise = 
    let test () =
        let today = DateTime.Now
        let tomorrow = today.AddDays 1.0
        let mutable result = 0
        for i = 1 to 10000000 do
            result <- result + if today <= tomorrow then 1 else 0

[<EntryPoint>]
let main argv =
    printfn "%s" Id.Name

    for __ = 1 to 5 do 
        let sw = Stopwatch.StartNew ()
        for i = 1 to 10 do
            Tortoise.test ()
        printfn "%A" sw.ElapsedMilliseconds

    0