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 ;
6 : find-numbers ( string -- seq )
7 [EBNF Result = ([0-9]+ => [[ string>number ]] | (!([0-9]) .)+)* EBNF] ;
9 : human-sort ( seq -- seq' )
10 [ dup find-numbers ] { } map>assoc sort-values keys ;