1 ! Copyright (C) 2008 Doug Coleman, Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: peg.ebnf math.parser kernel assocs sorting fry
4 math.order sequences ascii splitting.monotonic ;
7 : find-numbers ( string -- seq )
8 [EBNF Result = ([0-9]+ => [[ string>number ]] | (!([0-9]) .)+)* EBNF] ;
10 : human<=> ( obj1 obj2 -- <=> ) [ find-numbers ] bi@ <=> ;
12 : human>=< ( obj1 obj2 -- >=< ) human<=> invert-comparison ; inline
14 : human-compare ( obj1 obj2 quot -- <=> ) bi@ human<=> ;
16 : human-sort ( seq -- seq' ) [ human<=> ] sort ;
18 : human-sort-keys ( seq -- sortedseq )
19 [ [ first ] human-compare ] sort ;
21 : human-sort-values ( seq -- sortedseq )
22 [ [ second ] human-compare ] sort ;