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

sequences.extras: adding cut-slice*.

db4
John Benediktsson 2013-05-01 14:03:58 -07:00
parent b4de3d0a2f
commit 9243d39ef5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,6 +122,9 @@ IN: sequences.extras
[ seq <slice> ] keep len or swap [ seq <slice> ] keep len or swap
] produce nip ; inline ] produce nip ; inline
: cut-slice* ( seq n -- before after )
[ head-slice* ] [ tail-slice* ] 2bi ;
: rotate ( seq n -- seq' ) : rotate ( seq n -- seq' )
cut prepend ; cut prepend ;