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

sequences: Add cut-head and cut-tail.

modern-harvey3-triple
Doug Coleman 2018-08-07 16:52:51 -04:00
parent 1355c94f33
commit 7b48017cd1
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/sequences/sequences.factor
View File

@ -1055,6 +1055,18 @@ PRIVATE>
: trim-tail ( ... seq quot: ( ... elt -- ... ? ) -- ... newseq )
(trim-tail) head ; inline
: cut-head ( ... seq quot: ( ... elt -- ... ? ) -- ... head tail )
(trim-head) cut ; inline
: cut-head-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... head-slice tail-slice )
(trim-head) cut-slice ; inline
: cut-tail ( ... seq quot: ( ... elt -- ... ? ) -- ... head tail )
(trim-tail) cut ; inline
: cut-tail-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... head-slice tail-slice )
(trim-tail) cut-slice ; inline
: trim-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... slice )
[ trim-head-slice ] [ trim-tail-slice ] bi ; inline