head-split-skip ( seq n quot: ( elt -- ? ) -- pieces )

Vocabulary

tools.ps.macos.private

Inputs

seq	an object
n	an object
quot	a quotation with stack effect ( elt -- ? )

Outputs

pieces

an object

Definition

USING: kernel math sequences splitting ;

IN: tools.ps.macos.private

: head-split-skip ( seq n quot: ( elt -- ? ) -- pieces )
    [ dup 0 >= ] swap
    [ [ trim-head-slice ] [ split1-when-slice ] bi ] curry
    [ [ 1 - rot ] bi* ] curry produce 2nip ; inline