diff options
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 |