alphanum

Vocabulary

sorting.human

Definition

IN: sorting.human

TUPLE: alphanum obj ;

Methods

USING: accessors kernel math math.order sorting.human ;

M: alphanum <=>
    [ obj>> ] bi@ 2dup [ integer? ] bi@ xor
    [ drop integer? +lt+ +gt+ ? ] [ <=> ] if ;