# another product.
# Introduce Hashmap and Hashset.
-package hash_collection
+module hash_collection
import array
-import hash
# A HashCollection is an array of HashNode[K] indexed by the K hash value
-private class HashCollection[K: Object, N: HashNode[K]]
+private abstract class HashCollection[K: Object, N: HashNode[Object]]
super ArrayCapable[nullable N]
+
var _array: nullable NativeArray[nullable N] = null # Used to store items
var _capacity: Int = 0 # Size of _array
var _length: Int = 0 # Number of items in the map
# Return the node assosiated with the key
fun node_at(k: K): nullable N
do
- # cache: `is' is used instead of `==' because it is a faster filter (even if not exact)
+ # cache: `is` is used instead of `==` because it is a faster filter (even if not exact)
if k is _last_accessed_key then return _last_accessed_node
var res = node_at_idx(index_at(k), k)
var c = _array[i]
while c != null do
var ck = c._key
- if ck is k or ck == k then # prefilter with `is' because the compiler is not smart enought yet
+ if ck is k or ck == k then # prefilter with `is` because the compiler is not smart enought yet
break
end
c = c._next_in_bucklet
_last_accessed_key = null
end
+ # Clear the whole structure
fun raz
do
var i = _capacity - 1
_last_accessed_key = null
end
+ # Force a capacity
fun enlarge(cap: Int)
do
var old_cap = _capacity
end
end
-private class HashNode[K: Object]
+private abstract class HashNode[K: Object]
var _key: K
type N: HashNode[K]
readable writable var _next_item: nullable N = null
end
end
+# A map implemented with a hash table.
+# Keys of such a map cannot be null and require a working `hash` method
class HashMap[K: Object, V]
super Map[K, V]
super HashCollection[K, HashMapNode[K, V]]
redef fun iterator: HashMapIterator[K, V] do return new HashMapIterator[K,V](self)
- redef fun iterate
- !each(k: K, v: V)
- do
- var c = _first_item
- while c != null do
- each(c._key, c._value)
- c = c._next_item
- end
- end
-
redef fun length do return _length
redef fun is_empty do return _length == 0
redef var values: HashMapValues[K, V] = new HashMapValues[K, V](self)
end
+# View of the keys of a HashMap
class HashMapKeys[K: Object, V]
super RemovableCollection[K]
# The original map
redef fun remove_all(key) do self.map.remove_node(key)
end
+# View of the values of a Map
class HashMapValues[K: Object, V]
super RemovableCollection[V]
# The original map
end
end
-class HashMapNode[K: Object, V]
+private class HashMapNode[K: Object, V]
super HashNode[K]
redef type N: HashMapNode[K, V]
var _value: V
end
end
+# A `Set` implemented with a hash table.
+# Keys of such a map cannot be null and require a working `hash` method
class HashSet[E: Object]
super Set[E]
super HashCollection[E, HashSetNode[E]]
_length = 0
enlarge(0)
end
+
+ # Build a list filled with the items of `coll`.
+ init from(coll: Collection[E]) do
+ init
+ add_all(coll)
+ end
end
-class HashSetNode[E: Object]
+private class HashSetNode[E: Object]
super HashNode[E]
redef type N: HashSetNode[E]