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: peg.ebnf math.parser kernel assocs sorting fry
   4 math.order sequences ascii splitting.monotonic ;
   5 IN: sorting.human
   6
   7 : find-numbers ( string -- seq )
   8     [EBNF Result = ([0-9]+ => [[ string>number ]] | (!([0-9]) .)+)* EBNF] ;
   9
  10 : human-<=> ( obj1 obj2 -- <=> ) [ find-numbers ] bi@ <=> ;
  11
  12 : human->=< ( obj1 obj2 -- >=< ) human-<=> invert-comparison ; inline
  13
  14 : human-compare ( obj1 obj2 quot -- <=> ) bi@ human-<=> ;
  15
  16 : human-sort ( seq -- seq' ) [ human-<=> ] sort ;
  17
  18 : human-sort-keys ( seq -- sortedseq )
  19     [ [ first ] human-compare ] sort ;
  20
  21 : human-sort-values ( seq -- sortedseq )
  22     [ [ second ] human-compare ] sort ;