blob: 3265fe4c342fc31a866a28d00383a86cfffe0d46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
set t [trie create]
trie add t {Omar is a person} 1
trie add t {Generic is a /y/} 2
trie add t {Cool could be /...anything/} 101
assert {[trie lookup $t {Omar is a person}] eq {1}}
assert {[trie lookup $t {/p/ is a person}] eq {1 2}}
assert {[trie lookup $t {Omar is a /x/}] eq {1}}
assert {[trie lookup $t {Generic is a dog}] eq {2}}
assert {[trie lookup $t {Generic is /...description/}] eq {2}}
assert {[trie lookup $t {/...any/}] eq {1 2 101}}
assert {[trie lookup $t {Cool could be a word}] eq {101}}
assert {[trie lookup $t {Cool could be a noun}] eq {101}}
assert {[trie lookup $t {Cool could be a longer phrase}] eq {101}}
set t2 [trie create]
trie add t2 {a is a x} 101
trie add t2 {a is a y} 102
assert {[trie lookup $t2 {a is a /k/}] eq {101 102}}
exec dot -Tpdf <<[ctrie dot $t2] >ctrie.pdf
|
