adjusted-head-slice ( n elt plus-one? seq -- slice )

Vocabulary

ui.gadgets.charts.lines.private

Inputs

n	an object
elt	an object
plus-one?	an object
seq	an object

Outputs

slice

an object

Definition

USING: kernel math sequences ;

IN: ui.gadgets.charts.lines.private

:: adjusted-head-slice ( n elt plus-one? seq -- slice )
    n seq elt x [ [ x ] ] dip [ = not ] curry compose find-from
    drop seq swap
    [ plus-one? [ 1 + ] when index-or-length head-slice ] when*
    ;