<==> ( b1 b2 -- <=> )

Vocabulary

compression.huffman.private

Inputs

b1	an object
b2	an object

Outputs

<=>

an object

Definition

USING: combinators math math.order sequences ;

IN: compression.huffman.private

:: <==> ( b1 b2 -- <=> )
    {
        { [ b1 second length b2 second length < ] [ +lt+ ] }
        { [ b2 second length b1 second length < ] [ +gt+ ] }
        { [ b1 first b2 first < ] [ +lt+ ] }
        { [ b2 first b1 first < ] [ +gt+ ] }
        [ +eq+ ]
    } cond ;