indices-before ( n positions -- count )

Vocabulary

core-text

Inputs

n	an object
positions	an object

Outputs

count

an object

Definition

USING: binary-search kernel math ;

IN: core-text

:: indices-before ( n positions -- count )
    n positions natural-search :> ( i value ) value
    [ i value n < [ 1 + ] when ] [ 0 ] if ;