skip ( i seq quot -- n )

Vocabulary

math.matrices.elimination

Inputs

i	an object
seq	an object
quot	an object

Outputs

n

an object

Definition

USING: kernel sequences ;

IN: math.matrices.elimination

: skip ( i seq quot -- n )
    over [ find-from drop ] dip swap or? [ length ] unless ;
    inline