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

sets: adding adjoin-all.

John Benediktsson 2013-03-10 09:11:05 -07:00
parent 3ffacf75d2
commit 06dd0d0471
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/sets/sets.factor
View File

@ -158,8 +158,11 @@ M: sequence clear-set
: ?adjoin ( elt set -- ? ) : ?adjoin ( elt set -- ? )
2dup in? [ 2drop f ] [ adjoin t ] if ; inline 2dup in? [ 2drop f ] [ adjoin t ] if ; inline
: adjoin-all ( seq set -- )
[ adjoin ] curry each ;
: union! ( set1 set2 -- set1 ) : union! ( set1 set2 -- set1 )
?members over [ adjoin ] curry each ; ?members over adjoin-all ;
: diff! ( set1 set2 -- set1 ) : diff! ( set1 set2 -- set1 )
dupd sequence/tester [ dup ] prepose pick dupd sequence/tester [ dup ] prepose pick