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

subset? was broken...

db4
Doug Coleman 2011-08-15 15:40:44 -07:00
parent 8feb6c68e2
commit e6154acc96
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sets/sets-tests.factor
View File

@ -74,3 +74,9 @@ IN: sets.tests
[ 1 ] [ { 1 } cardinality ] unit-test [ 1 ] [ { 1 } cardinality ] unit-test
[ 1 ] [ HS{ 1 } cardinality ] unit-test [ 1 ] [ HS{ 1 } cardinality ] unit-test
[ 3 ] [ HS{ 1 2 3 } cardinality ] unit-test [ 3 ] [ HS{ 1 2 3 } cardinality ] unit-test
[ f ] [ { 1 2 3 4 } { 1 2 } subset? ] unit-test
[ t ] [ { 1 2 3 4 } { 1 2 } swap subset? ] unit-test
[ t ] [ { 1 2 } { 1 2 } subset? ] unit-test
[ t ] [ { 1 2 } { 1 2 } swap subset? ] unit-test

2
core/sets/sets.factor
View File

@ -61,7 +61,7 @@ M: set intersects?
small/large sequence/tester any? ; small/large sequence/tester any? ;
M: set subset? M: set subset?
small/large sequence/tester all? ; sequence/tester all? ;
M: set set= M: set set=
2dup [ cardinality ] bi@ eq? [ subset? ] [ 2drop f ] if ; 2dup [ cardinality ] bi@ eq? [ subset? ] [ 2drop f ] if ;