interval-singleton? ( interval -- ? )

Vocabulary

math.intervals

Inputs

interval

an object

Outputs

?

an object

Definition

IN: math.intervals

GENERIC: interval-singleton? ( interval -- ? )

Methods

USING: kernel math math.intervals sequences ;

M: interval interval-singleton?
    interval>points 2dup [ second ] both?
    [ [ first ] bi@ number= ] [ 2drop f ] if ;


USING: kernel math.intervals ;

M: special-interval interval-singleton? drop f ;