interval-max ( interval-set1 interval-set2 -- n )

Vocabulary

interval-sets.private

Inputs

interval-set1	an object
interval-set2	an object

Outputs

n

an object

Definition

USING: accessors kernel math.order sequences ;

IN: interval-sets.private

: interval-max ( interval-set1 interval-set2 -- n )
    [ array>> [ 0 ] [ last ] if-empty ] bi@ max ;