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