small/large ( set1 set2 -- set1' set2' )


Vocabulary
sets.private

Inputs
set1an object
set2an object


Outputs
set1'an object
set2'an object


Definition
USING: kernel math sets ;

IN: sets.private

: small/large ( set1 set2 -- set1' set2' )
2dup [ cardinality ] bi@ > [ swap ] when ; inline