(interval-op) ( p1 p2 quot -- p3 )


Vocabulary
math.intervals

Inputs
p1an object
p2an object
quotan object


Outputs
p3an object


Definition
USING: arrays kernel sequences ;

IN: math.intervals

: (interval-op) ( p1 p2 quot -- p3 )
[ [ first ] [ first ] [ call ] tri* ]
[ drop [ second ] both? ] 3bi 2array ; inline