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

sequences.extras: adding a trim-as word.

db4
John Benediktsson 2012-07-15 09:47:44 -07:00
parent aa2a166a53
commit 3bd6610a9d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,3 +74,6 @@ IN: sequences.extras.tests
{ { } } [ { } round-robin ] unit-test { { } } [ { } round-robin ] unit-test
{ "ADEBFC" } [ { "ABC" "D" "EF" } round-robin >string ] unit-test { "ADEBFC" } [ { "ABC" "D" "EF" } round-robin >string ] unit-test
{ { } } [ "ABC" [ ] { } trim-as ] unit-test
{ "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test

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

@ -198,3 +198,6 @@ PRIVATE>
: contains? ( seq elts -- ? ) : contains? ( seq elts -- ? )
[ member? ] curry any? ; inline [ member? ] curry any? ; inline
: trim-as ( ... seq quot: ( ... elt -- ... ? ) exemplar -- ... newseq )
[ trim-slice ] [ like ] bi* ; inline