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

sequences.extras: adding reject!.

db4
John Benediktsson 2013-09-24 15:21:54 -07:00
parent 9387c8e9a2
commit a8691d6dc9
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/sequences/extras/extras-tests.factor
View File

@ -1,6 +1,6 @@
USING: arrays ascii io io.streams.string kernel make math
math.vectors random sequences sequences.extras strings
tools.test ;
tools.test vectors ;
IN: sequences.extras.tests
@ -177,3 +177,4 @@ IN: sequences.extras.tests
{ 2 "moose" } [ { "chicken" "beef" "moose" } [ first ] supremum-by* ] unit-test
{ "0123456789" } [ 58 iota [ 48 < ] "" reject-as ] unit-test
{ V{ 1 3 5 7 9 } } [ 10 iota >vector [ even? ] reject! ] unit-test

3
extra/sequences/extras/extras.factor
View File

@ -518,3 +518,6 @@ PRIVATE>
: reject ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
over reject-as ; inline
: reject! ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
[ not ] compose filter! ; inline