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

sequences.extras: adding remove-first.

db4
John Benediktsson 2013-05-02 08:23:25 -07:00
parent b78e32733e
commit fb441ca6dc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -416,3 +416,9 @@ PRIVATE>
: all-shortest ( seqs -- seqs' ) dup shortest length filter-length ; : all-shortest ( seqs -- seqs' ) dup shortest length filter-length ;
: all-longest ( seqs -- seqs' ) dup longest length filter-length ; : all-longest ( seqs -- seqs' ) dup longest length filter-length ;
: remove-first ( obj seq -- seq' )
[ index ] keep over [ remove-nth ] [ nip ] if ;
: remove-first! ( obj seq -- seq )
[ index ] keep over [ remove-nth! ] [ nip ] if ;