81 lines
2.1 KiB
Plaintext
81 lines
2.1 KiB
Plaintext
|
import ../stdlib/stdlib.sl
|
||
|
|
import ../stdlib/io.sl
|
||
|
|
import ../stdlib/mem.sl
|
||
|
|
import ../stdlib/hashmap.sl
|
||
|
|
|
||
|
|
word main
|
||
|
|
# ── hm_new / hm_count / hm_capacity ──
|
||
|
|
8 hm_new
|
||
|
|
dup hm_count puti cr # 0
|
||
|
|
dup hm_capacity puti cr # 8
|
||
|
|
|
||
|
|
# ── hm_set / hm_get ──
|
||
|
|
dup 42 100 hm_set
|
||
|
|
dup 99 200 hm_set
|
||
|
|
dup 7 300 hm_set
|
||
|
|
|
||
|
|
dup hm_count puti cr # 3
|
||
|
|
|
||
|
|
dup 42 hm_get drop puti cr # 100
|
||
|
|
dup 99 hm_get drop puti cr # 200
|
||
|
|
dup 7 hm_get drop puti cr # 300
|
||
|
|
|
||
|
|
# ── hm_get miss ──
|
||
|
|
dup 999 hm_get # should be 0, 0
|
||
|
|
puti dup puti cr drop # 00
|
||
|
|
|
||
|
|
# ── hm_has ──
|
||
|
|
dup 42 hm_has puti cr # 1
|
||
|
|
dup 999 hm_has puti cr # 0
|
||
|
|
|
||
|
|
# ── hm_set overwrite ──
|
||
|
|
dup 42 111 hm_set
|
||
|
|
dup 42 hm_get drop puti cr # 111
|
||
|
|
dup hm_count puti cr # 3 (no new entry)
|
||
|
|
|
||
|
|
# ── hm_del ──
|
||
|
|
dup 99 hm_del puti cr # 1 (deleted)
|
||
|
|
dup 99 hm_del puti cr # 0 (already gone)
|
||
|
|
dup 99 hm_has puti cr # 0
|
||
|
|
dup hm_count puti cr # 2
|
||
|
|
|
||
|
|
# ── insert after delete (tombstone reuse) ──
|
||
|
|
dup 99 999 hm_set
|
||
|
|
dup 99 hm_get drop puti cr # 999
|
||
|
|
dup hm_count puti cr # 3
|
||
|
|
|
||
|
|
# ── hm_keys / hm_vals / hm_flags raw access ──
|
||
|
|
dup hm_keys 0 != puti cr # 1 (non-null pointer)
|
||
|
|
dup hm_vals 0 != puti cr # 1
|
||
|
|
dup hm_flags 0 != puti cr # 1
|
||
|
|
|
||
|
|
# ── hm_clear ──
|
||
|
|
hm_clear
|
||
|
|
dup hm_count puti cr # 0
|
||
|
|
dup 42 hm_has puti cr # 0 (cleared)
|
||
|
|
|
||
|
|
# ── rehash (force growth) ──
|
||
|
|
# insert enough to trigger rehash on the cleared map
|
||
|
|
dup 1 10 hm_set
|
||
|
|
dup 2 20 hm_set
|
||
|
|
dup 3 30 hm_set
|
||
|
|
dup 4 40 hm_set
|
||
|
|
dup 5 50 hm_set
|
||
|
|
dup 6 60 hm_set # load > 70% → rehash
|
||
|
|
dup 7 70 hm_set
|
||
|
|
|
||
|
|
dup hm_capacity 8 > puti cr # 1 (grew)
|
||
|
|
dup hm_count puti cr # 7
|
||
|
|
|
||
|
|
# verify all entries survived rehash
|
||
|
|
dup 1 hm_get drop puti cr # 10
|
||
|
|
dup 4 hm_get drop puti cr # 40
|
||
|
|
dup 7 hm_get drop puti cr # 70
|
||
|
|
|
||
|
|
# ── large key values ──
|
||
|
|
dup 1000000 77 hm_set
|
||
|
|
dup 1000000 hm_get drop puti cr # 77
|
||
|
|
|
||
|
|
hm_free
|
||
|
|
end
|