CodePlexProject Hosting for Open Source Software
Chain of responsibility pattern
let ChainOfResponsibility2() = let chainTemplate processFunction canContinue s = if canContinue s then processFunction s else s let canContinueF _ = true let processF x = x + 1 let chainFunction = chainTemplate processF canContinueF //combine two functions to get a chainFunction let s = 1 |> chainFunction |> chainFunction printfn "%A" s
Last edited Sep 14, 2011 at 3:19 AM by ttliu2000, version 1
There is no recommended release for this project.