humani<=> ( obj1 obj2 -- <=> )

Vocabulary
sorting.human

Definition

USING: math.order sequences ;

IN: sorting.human

: humani<=> ( obj1 obj2 -- <=> )
    [ find-numbers [ <alphanum-insensitive> ] map ] compare ;