debounce.fs

let inline ( ^ ) f x = f x

let debounce time f =
    let loop = MailboxProcessor.Start ^ fun mailbox -> async {
        let mutable lastMsg = None
        
        while true do
            let! msg = mailbox.TryReceive(time)
            match msg with
            | None when lastMsg.IsSome -> f lastMsg.Value
            | _ -> ()
                
            lastMsg <- msg    
    }

    loop.Post


let work x = 
    printfn "%A" x
    
let work = debounce 1000 work