diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-04-04 18:24:46 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-04-04 18:24:46 +0200 |
| commit | 7b29b31648fd737e7bbc007f480b799add91bc6b (patch) | |
| tree | e724c15c959d98ece73c186b82a61100f4e8d06a /hashtable.sml | |
| parent | d7d4830443f1e385af862462f976553c8a9033e1 (diff) | |
Beginning of the preprocessor
Diffstat (limited to 'hashtable.sml')
| -rw-r--r-- | hashtable.sml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/hashtable.sml b/hashtable.sml index 24e5bba..5b89ebd 100644 --- a/hashtable.sml +++ b/hashtable.sml @@ -12,11 +12,7 @@ structure Hashtable :> HASHTABLE = struct val ` = Word32.fromInt fun hashFunc key = - let - open Word32 - in List.foldl (fn (x, acc) => acc * `31 + `(ord x)) (`0) $ explode key - end fun insert (buf, (taken, total)) key value = if Real.fromInt (taken + 1) / Real.fromInt total > fillLimit then |