Customer_2.fsx

// test
let p = Printer(System.Console.Out.WriteLine)
let vm = VendingMachine(3, p)
let cust = HungryCustomer(vm, 1, p)

cust.Order()
cust.Order()
cust.Order()
// fsi:
// Customer 1 is still hungry and orders another
// Vend item to customer 1
// New stock: 2
// Customer 1 is still hungry and orders another
// Vend item to customer 1
// New stock: 1
// Customer 1 is still hungry and orders another
// Vend item to customer 1
// New stock: 0

cust.Order()
cust.Order()
// fsi:
// Request for customer 1 will be fulfilled after machine is restocked
// Request for customer 1 will be fulfilled after machine is restocked

cust.Done()
// fsi:
// Customer 1 is getting full, so stops ordering

vm.Restock(5)
// fsi:
// Restocking with 5
// Current stock: 5
// Vend item to customer 1
// New stock: 4
// Vend item to customer 1
// New stock: 3