sequences.extras: adding cut-slice*.
parent
b4de3d0a2f
commit
9243d39ef5
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue