contiguous-range? ( keys -- ? )

Vocabulary

combinators.private

Inputs

keys

an object

Outputs

?

an object

Definition

USING: kernel math sequences sets ;

IN: combinators.private

: contiguous-range? ( keys -- ? )
    dup [ fixnum? ] all? [
        dup all-unique?
        [ [ length ] [ maximum ] [ minimum ] tri - - 1 = ]
        [ drop f ] if
    ] [ drop f ] if ;