symmetric-class-op ( first second cache quot -- result )

Vocabulary

classes.algebra.private

Inputs

first	an object
second	an object
cache	an object
quot	an object

Outputs

result

an object

Definition

USING: assocs classes.private kernel math ;

IN: classes.algebra.private

: symmetric-class-op ( first second cache quot -- result )
    [ 2dup [ rank-class ] bi@ > [ swap ] when ] 2dip 2cache ;
    inline