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

Vocabulary

sorting.title

Inputs

obj1	an object
obj2	an object

Outputs

<=>

an object

Definition

USING: accessors kernel math.order regexp sequences unicode ;

IN: sorting.title

: title<=> ( obj1 obj2 -- <=> )
    [
        >lower dup R/ ^(the|a|an|el|la|los|las|il) / first-match
        [ to>> tail-slice ] when*
    ] compare ;