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


Vocabulary
math.intervals

Definition
USING: accessors kernel math.order sequences ;

IN: math.intervals

: interval-bitand-pos ( i1 i2 -- ? )
[ to>> first ] bi@ min 0 swap [a,b] ;