diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-10 09:40:51 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-10 09:40:51 +0000 |
| commit | c5d28c52dd8fa81cc7b09c39b3fa751c1578a7d8 (patch) | |
| tree | c3594e4a904e2345f8ad087dd32c5f28e375c303 /otherlibs/labltk/browser/jg_memo.mli | |
| parent | e6343bfb447c8fb170981d46b5debb7855d95e47 (diff) | |
various improvements
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2684 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/browser/jg_memo.mli')
| -rw-r--r-- | otherlibs/labltk/browser/jg_memo.mli | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/otherlibs/labltk/browser/jg_memo.mli b/otherlibs/labltk/browser/jg_memo.mli index 8d08111b1..3d5c33252 100644 --- a/otherlibs/labltk/browser/jg_memo.mli +++ b/otherlibs/labltk/browser/jg_memo.mli @@ -1,8 +1,5 @@ (* $Id$ *) -class ['a, 'b] c : fun:('a -> 'b) -> object - val hash : ('a, 'b) Hashtbl.t - method clear : unit - method get : 'a -> 'b - method reget : 'a -> 'b -end +val fast : fun:('a -> 'b) -> 'a -> 'b +(* "fast" memoizer: uses a List.assq like function *) +(* Good for a smallish number of keys, phisically equal *) |