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

sets: simpler M\ sequence members.

char-rename
John Benediktsson 2017-02-07 14:50:58 -08:00
parent 75ebd0eacd
commit bfcd68e2e9
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/sets/sets.factor
View File

@ -106,17 +106,6 @@ M: set duplicates drop f ;
M: set all-unique? drop t ;
<PRIVATE
: (pruned) ( elt set accum -- )
2over ?adjoin [ nip push ] [ 3drop ] if ; inline
: pruned ( seq -- newseq )
[ f fast-set ] [ length <vector> ] bi
[ [ (pruned) ] 2curry each ] keep ;
PRIVATE>
! Sequences are sets
INSTANCE: sequence set
@ -133,7 +122,7 @@ M: sequence set-like
[ members ] dip like ;
M: sequence members
[ pruned ] keep like ;
f fast-set [ ?adjoin ] curry filter ;
M: sequence null?
empty? ; inline