Demonstrates a simple generate memoize function in F#

memoize-client.fs

// Raw add function
let add (x,y) = x + y

// Memoized version
let add = memoize add

add (5,10) // Adding (5,10) to cache
add (5,10) // Cache hit for (5,10)

memoize.fs

let memoize(code) =
  let cache = Dictionary()
  fun input ->
    let resultIsCached,result = cache.TryGetValue(input)
    if resultIsCached then
      printfn "cache hit for %A" input
      result
    else
      let result = code(input)
      printfn "adding %A to cache" input
      cache.[input] <- result
      result