version 1.4, 1994/10/18 15:51:18
|
version 1.5, 1994/11/15 15:55:36
|
Line 91 Create hashsearch ' hash-find A, ' hash
|
Line 91 Create hashsearch ' hash-find A, ' hash
|
addall \ Baum aufbauen |
addall \ Baum aufbauen |
\ Baumsuche ist installiert. |
\ Baumsuche ist installiert. |
|
|
|
: hash-cold ( -- ) Defers 'cold |
|
HashPointer off HashTable off HashIndex off |
|
addall ; |
|
' hash-cold IS 'cold |
|
|
: .words ( -- ) |
: .words ( -- ) |
base @ >r hex HashTable @ Hashlen 0 |
base @ >r hex HashTable @ Hashlen 0 |
DO cr i 2 .r ." : " dup i cells + |
DO cr i 2 .r ." : " dup i cells + |