(delete-redundancies) ( seq -- )

Vocabulary

interval-sets.private

Inputs

seq

an object

Outputs

None

Definition

USING: combinators kernel make math sequences ;

IN: interval-sets.private

: (delete-redundancies) ( seq -- )
    dup length {
        { 0 [ drop ] }
        { 1 [ % ] }
        [
            drop dup first2 <
            [ unclip-slice , ] [ 2 tail-slice ] if
            (delete-redundancies)
        ]
    } case ;