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 ]
        [ 1 - rot ] bi*
    ] produce 2nip ; inline