Skip to content

Instantly share code, notes, and snippets.

@fetburner

fetburner/memorize1.ml

Created March 30, 2013 16:26
Show Gist options
  • Save fetburner/5277334 to your computer and use it in GitHub Desktop.
Save fetburner/5277334 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
memorize1.ml
let rec memorize cache f n =
try Hashtbl.find cache n with
| Not_found ->
let result = f (memorize cache f) n in
Hashtbl.add cache n result;
result
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment