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

bloom-filters: fewer fried quots

Alec Berryman 2009-05-10 19:41:39 -04:00
parent 087798b789
commit d987befbe3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/bloom-filters/bloom-filters.factor
View File

@ -84,10 +84,10 @@ ERROR: invalid-n-objects ;
! support it, and I haven't done my own, but we'll go with it anyway. ! support it, and I haven't done my own, but we'll go with it anyway.
! !
: size-bloom-filter ( error-rate number-objects -- number-hashes number-bits ) : size-bloom-filter ( error-rate number-objects -- number-hashes number-bits )
'[ _ _ bits-to-satisfy-error-rate ] [ n-hashes-range identity-configuration ] 2dip
'[ dup _ call 2array smaller-second ] '[ dup [ _ _ bits-to-satisfy-error-rate ]
'[ n-hashes-range identity-configuration _ reduce ] call 2array smaller-second ]
call reduce
dup validate-sizes dup validate-sizes
first2 ; first2 ;