steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hashtables.wrapped: faster >alist, keys, values.

db4
John Benediktsson 2013-04-07 12:45:38 -07:00
parent 17da9e0cff
commit 3bc658e8d5
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/hashtables/wrapped/wrapped.factor
View File

@ -3,7 +3,7 @@
USING: accessors arrays assocs hashtables kernel sequences USING: accessors arrays assocs hashtables kernel sequences
vocabs.loader ; vocabs.loader ;
FROM: sequences => change-nth ;
IN: hashtables.wrapped IN: hashtables.wrapped
TUPLE: wrapped-key TUPLE: wrapped-key
@ -37,7 +37,15 @@ M: wrapped-hashtable set-at
wrapper@ set-at ; inline wrapper@ set-at ; inline
M: wrapped-hashtable >alist M: wrapped-hashtable >alist
underlying>> >alist [ [ first underlying>> ] [ second ] bi 2array ] map ; underlying>> >alist [
[ 0 swap [ underlying>> ] change-nth ] each
] keep ;
M: wrapped-hashtable keys
underlying>> keys [ underlying>> ] map! ;
M: wrapped-hashtable values
underlying>> values ;
M: wrapped-hashtable equal? M: wrapped-hashtable equal?
over wrapped-hashtable? [ [ underlying>> ] same? ] [ 2drop f ] if ; over wrapped-hashtable? [ [ underlying>> ] same? ] [ 2drop f ] if ;