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

hash-sets: use ?adjoin instead of (all-unique?).

db4
John Benediktsson 2013-03-11 10:21:02 -07:00
parent 15d720458a
commit 734a987e24
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/hash-sets/hash-sets.factor
View File

@ -144,12 +144,5 @@ M: sequence fast-set >hash-set ;
M: sequence duplicates M: sequence duplicates
dup length <hash-set> [ ?adjoin not ] curry filter ; dup length <hash-set> [ ?adjoin not ] curry filter ;
<PRIVATE
: (all-unique?) ( elt hash -- ? )
2dup in? [ 2drop f ] [ adjoin t ] if ; inline
PRIVATE>
M: sequence all-unique? M: sequence all-unique?
dup length <hash-set> [ (all-unique?) ] curry all? ; dup length <hash-set> [ ?adjoin ] curry all? ;