adjusted-tail-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-tail-slice ( n elt plus-one? seq -- slice )
    n seq elt x [ [ x ] ] dip [ = not ] curry compose
    find-last-from drop seq swap
    [ plus-one? [ 1 + ] unless tail-slice ] when* ;