Concurrency_1.fsx

let startOrdering (cust : HungryCustomer) (delaySeconds : int) = async {
    for _ in 1 .. 10 do
        do cust.Order()
        do! Async.Sleep(delaySeconds*1000)

    return cust.Done()
}

let outputs text = 
    System.IO.File.AppendAllText("c:\\temp\\vending-machine.txt", text + System.Environment.NewLine)
    System.Console.Out.WriteLine(text)
let printer = Printer(outputs)

let vm = VendingMachine(5, printer)
let showCurrentStock() = printer.Print(sprintf $"Request current stock: {vm.GetStock()}")

let cust1 = HungryCustomer(vm, 1, printer)
let cust2 = HungryCustomer(vm, 2, printer)
let cust3 = HungryCustomer(vm, 3, printer)