From ed29fbd93f641dc622ed54ac37fc81a292f71321 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 8 Aug 2016 19:39:24 -0700 Subject: [PATCH] cuckoo-filters: less duplication in cuckoo-insert. --- extra/cuckoo-filters/cuckoo-filters.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/cuckoo-filters/cuckoo-filters.factor b/extra/cuckoo-filters/cuckoo-filters.factor index ca3d383ccc..87dc1d1898 100644 --- a/extra/cuckoo-filters/cuckoo-filters.factor +++ b/extra/cuckoo-filters/cuckoo-filters.factor @@ -62,7 +62,7 @@ TUPLE: cuckoo-filter buckets checksum size ; [ fp i1 n mod buckets nth bucket-insert ] [ fp i2 n mod buckets nth bucket-insert ] } 0|| [ - cuckoo-filter [ 1 + ] change-size drop t + t ] [ 2 random zero? i1 i2 ? :> i! max-cuckoo-count [ @@ -71,9 +71,9 @@ TUPLE: cuckoo-filter buckets checksum size ; fp i alt-index i! fp i n mod buckets nth bucket-insert - dup [ cuckoo-filter [ 1 + ] change-size drop ] when ] find-integer >boolean - ] if ; + ] if + dup [ cuckoo-filter [ 1 + ] change-size drop ] when ; :: cuckoo-lookup ( bytes cuckoo-filter -- ? ) bytes cuckoo-filter hash-indices :> ( fp i1 i2 )