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

hash-sets: using ?adjoin to implement duplicates, some tests.

db4
John Benediktsson 2012-05-14 15:47:56 -07:00
parent 548af01845
commit 0f6972b98b
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/hash-sets/hash-sets-tests.factor
View File

@ -34,3 +34,7 @@ IN: hash-sets.tests
[ t ] [ HS{ } null? ] unit-test [ t ] [ HS{ } null? ] unit-test
[ f ] [ HS{ 1 } null? ] unit-test [ f ] [ HS{ 1 } null? ] unit-test
{ { } } [ { 1 2 3 } duplicates ] unit-test
{ f } [ { 1 2 3 } >hash-set duplicates ] unit-test
{ { 1 } } [ { 1 2 1 } duplicates ] unit-test

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

@ -31,7 +31,7 @@ M: sequence fast-set >hash-set ;
M: f fast-set drop H{ } clone hash-set boa ; M: f fast-set drop H{ } clone hash-set boa ;
M: sequence duplicates M: sequence duplicates
f fast-set [ [ in? ] [ adjoin ] 2bi ] curry filter ; f fast-set [ ?adjoin not ] curry filter ;
<PRIVATE <PRIVATE