positions-before ( n positions -- count )

Vocabulary

ui.text.index-maps

Inputs

n	an object
positions	an object

Outputs

count

an object

Definition

USING: binary-search kernel math ;

IN: ui.text.index-maps

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