basis/sorting/human/human.factor

   1 ! Copyright (C) 2008 Doug Coleman, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math.parser peg.ebnf sorting.functor ;
   4 IN: sorting.human
   5
   6 : find-numbers ( string -- seq )
   7     [EBNF Result = ([0-9]+ => [[ string>number ]] | (!([0-9]) .)+)* EBNF] ;
   8
   9 << "human" [ find-numbers ] define-sorting >>