interval-bitand-neg ( i1 i2 -- ? )


Vocabulary
math.intervals

Definition
USING: accessors kernel math sequences ;

IN: math.intervals

: interval-bitand-neg ( i1 i2 -- ? )
dup from>> first 0 < [ drop ] [ nip ] if
0 swap to>> first [a,b] ;