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

contrib/sequences: add ?head-slice, ?tail-slice, etc

chris.double 2006-10-08 10:44:34 +00:00
parent 3edc7cf021
commit a7798e06d0
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/sequences.factor
View File

@ -39,4 +39,13 @@ IN: sequences-contrib
: trim* ( seq quot -- newseq ) [ (ltrim*) ] keep rtrim* ;
: trim ( seq -- newseq ) [ blank? ] trim* ;
: ?head-slice ( seq begin -- newseq ? )
2dup head? [ length tail-slice t ] [ drop f ] if ;
: ?tail-slice ( seq end -- newseq ? )
2dup tail? [ length head-slice* t ] [ drop f ] if ;
: unclip-slice ( seq -- rest first )
dup 1 tail-slice swap first ;
PROVIDE: contrib/sequences ;