! Random test case
{ "A" } [ 100 <iota> [ dup ] H{ } map>assoc 32 over delete-at "A" 32 pick set-at 32 of ] unit-test
-
-! Alists have prefix priority
-{ 42 } [ { { 1 42 } { 2 10 } { 1 20 } } 1 of ] unit-test
-{ 42 } [ { { 1 42 } { 2 10 } { 1 20 } } >hashtable 1 of ] unit-test
dupd new-key@ set-nth-pair ; inline
: (rehash) ( alist hash -- )
- [ <reversed> ] dip [ swapd (set-at) ] curry assoc-each ; inline
+ [ swapd (set-at) ] curry assoc-each ; inline
: hash-large? ( hash -- ? )
[ count>> 1 fixnum+fast 3 fixnum*fast ]