cut-point ( seq -- n )

Vocabulary

math.combinatorics.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: kernel math sequences sequences.private ;

IN: math.combinatorics.private

: cut-point ( seq -- n )
    [ last-unsafe ] keep [ [ > ] 1check ] find-last drop nip ;
    inline