Simple F# function that may inject chaos

chaos.fsx

// inspired by https://www.youtube.com/watch?v=RWyZkNzvC-c&t=553s
// $ dotnet fsi chaos.fsx
// latency test
// 0.919409
open System
open System.Threading

let chaos (name:string) (shouldChaos:unit -> bool) (chaos:unit -> unit) (service:unit -> 't) =
    if shouldChaos () then
        printfn "%s" name
        do chaos
    else ()
    service ()

let always = fun () -> true
let latency = fun () -> Thread.Sleep(3000)
let computeRandom = fun () -> (new Random()).NextDouble()

let result = chaos "latency test" always latency computeRandom
printfn "%f" result