fix using, make sure article-only title sort works
parent
0d45dafdd0
commit
1bc39df838
|
@ -1,6 +1,7 @@
|
||||||
! Copyright (C) 2008 Doug Coleman, Slava Pestov.
|
! Copyright (C) 2008 Doug Coleman, Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: math.parser peg.ebnf sorting.functor ;
|
USING: accessors kernel math math.order math.parser peg.ebnf
|
||||||
|
sequences sorting.functor ;
|
||||||
IN: sorting.human
|
IN: sorting.human
|
||||||
|
|
||||||
: find-numbers ( string -- seq )
|
: find-numbers ( string -- seq )
|
||||||
|
|
|
@ -8,6 +8,9 @@ IN: sorting.title.tests
|
||||||
"The Beatles"
|
"The Beatles"
|
||||||
"A river runs through it"
|
"A river runs through it"
|
||||||
"Another"
|
"Another"
|
||||||
|
"The"
|
||||||
|
"A"
|
||||||
|
"Los"
|
||||||
"la vida loca"
|
"la vida loca"
|
||||||
"Basketball"
|
"Basketball"
|
||||||
"racquetball"
|
"racquetball"
|
||||||
|
@ -21,6 +24,7 @@ IN: sorting.title.tests
|
||||||
} ;
|
} ;
|
||||||
[
|
[
|
||||||
{
|
{
|
||||||
|
"A"
|
||||||
"Another"
|
"Another"
|
||||||
"Basketball"
|
"Basketball"
|
||||||
"The Beatles"
|
"The Beatles"
|
||||||
|
@ -29,10 +33,12 @@ IN: sorting.title.tests
|
||||||
"for the horde"
|
"for the horde"
|
||||||
"Los Fujis"
|
"Los Fujis"
|
||||||
"los Fujis"
|
"los Fujis"
|
||||||
|
"Los"
|
||||||
"of mice and men"
|
"of mice and men"
|
||||||
"on belay"
|
"on belay"
|
||||||
"racquetball"
|
"racquetball"
|
||||||
"A river runs through it"
|
"A river runs through it"
|
||||||
|
"The"
|
||||||
"la vida loca"
|
"la vida loca"
|
||||||
}
|
}
|
||||||
] [
|
] [
|
||||||
|
|
Loading…
Reference in New Issue