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

cuckoo-filters: using alien deref in tag-index.

char-rename
John Benediktsson 2016-08-08 15:18:36 -07:00
parent ca05d4cefb
commit 0f1f465f42
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/cuckoo-filters/cuckoo-filters.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2016 John Benediktsson ! Copyright (C) 2016 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors arrays checksums checksums.sha USING: accessors alien alien.c-types alien.data arrays checksums
combinators.short-circuit io.binary kernel locals math checksums.sha combinators.short-circuit kernel locals math
math.bitwise random sequences ; math.bitwise random sequences ;
IN: cuckoo-filters IN: cuckoo-filters
@ -27,7 +27,7 @@ CONSTANT: bucket-size 4
#buckets [ bucket-size f <array> ] replicate ; #buckets [ bucket-size f <array> ] replicate ;
: tag-index ( hash -- tag index ) : tag-index ( hash -- tag index )
4 cut 4 head [ be> ] bi@ ; 4 over <displaced-alien> [ uint deref ] bi@ ;
: alt-index ( tag index -- altindex ) : alt-index ( tag index -- altindex )
[ 0x5bd1e995 w* ] [ bitxor ] bi* ; [ 0x5bd1e995 w* ] [ bitxor ] bi* ;