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

sequences.extras: adding ?trim.

db4
John Benediktsson 2012-07-18 11:41:23 -07:00
parent 75778c89c1
commit 60927a7925
2 changed files with 15 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

@ -77,3 +77,6 @@ IN: sequences.extras.tests
{ { } } [ "ABC" [ ] { } trim-as ] unit-test
{ "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test
{ t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] bi@ = ] unit-test
{ "ABC" } [ " ABC " [ blank? ] ?trim ] unit-test

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

@ -201,3 +201,15 @@ PRIVATE>
: trim-as ( ... seq quot: ( ... elt -- ... ? ) exemplar -- ... newseq )
[ trim-slice ] [ like ] bi* ; inline
<PRIVATE
: last-unsafe ( seq -- elt ) [ length 1 - ] [ nth-unsafe ] bi ;
PRIVATE>
: ?trim ( ... seq quot: ( ... elt -- ... ? ) -- ... seq/newseq )
over empty? [ drop ] [
over [ first-unsafe ] [ last-unsafe ] bi pick bi@ or
[ trim ] [ drop ] if
] if ; inline