2009-04-03 19:19:45 -04:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2017-12-02 20:05:25 -05:00
|
|
|
USING: accessors kernel math.order regexp sequences
|
|
|
|
|
sorting.functor unicode ;
|
2009-04-03 19:19:45 -04:00
|
|
|
IN: sorting.title
|
|
|
|
|
|
2017-12-02 20:05:25 -05:00
|
|
|
SORTING: title "[
|
2019-10-30 01:25:37 -04:00
|
|
|
>lower dup re[[^(the|a|an|el|la|los|las|il) ]] first-match
|
2009-05-26 12:55:48 -04:00
|
|
|
[ to>> tail-slice ] when*
|
2017-12-02 20:05:25 -05:00
|
|
|
]"
|
