Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type Hashtable<'TKey,'TValue> when 'TKey : equality
- (capacity:int, items:('TKey * 'TValue) seq) =
- let table = Array.create capacity []
- let indexOf key = (hash key)%capacity
- do for key,value in items do
- let index = indexOf key
- table.[index] <- (key,value)::table.[index]
- new(items) = Hashtable(Seq.length items, items)
- member this.TryGetValue(key:'TKey) =
- table.[indexOf key]
- |> List.tryFind (fst >> (=) key)
- |> Option.map snd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement