F# memoize

memoize.fsx

let memoize fn =
  let cache = new System.Collections.Generic.Dictionary<_,_>()
  printfn "counter: %A" cache.Count
  
  fun x ->
    printfn "%A is received" x
    match cache.TryGetValue x with
    | true, v -> v
    | false, _ -> let v = fn (x)
                  cache.Add(x,v)
                  v

let square n =
  printfn "computing square of %d" n
  printfn "%A" <| (n * n)

let memSquare = memoize square

memSquare 42
memSquare 42
memSquare 99