sequences.extras: adding a trim-as word.

2012-07-15 09:47:44 -07:00 · 2012-07-15 09:47:44 -07:00 · 3bd6610a9d
parent aa2a166a53
commit 3bd6610a9d
2 changed files with 6 additions and 0 deletions
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@ -74,3 +74,6 @@ IN: sequences.extras.tests

 { { } } [ { } round-robin ] 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
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -198,3 +198,6 @@ PRIVATE>

 : contains? ( seq elts -- ? )
    [ member? ] curry any? ; inline
+
+: trim-as ( ... seq quot: ( ... elt -- ... ? ) exemplar -- ... newseq )
+    [ trim-slice ] [ like ] bi* ; inline