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]
;