1 USING: sorting sequences kernel math math.order random
2 tools.test vectors sets vocabs grouping ;
5 [ { } ] [ { } natural-sort ] unit-test
7 [ { 270000000 270000001 } ]
8 [ T{ slice f 270000000 270000002 270000002 } natural-sort ]
14 100 [ 20 random [ 1000 random ] replicate ] replicate
16 [ set= ] [ nip [ before=? ] monotonic? ] 2bi and
20 [ ] [ { 1 2 } [ 2drop 1 ] sort drop ] unit-test
22 ! Is it a stable sort?
23 [ t ] [ { { 1 "a" } { 1 "b" } { 1 "c" } } dup sort-keys = ] unit-test
25 [ { { 1 "a" } { 1 "b" } { 1 "c" } { 1 "e" } { 2 "d" } } ]
26 [ { { 1 "a" } { 1 "b" } { 1 "c" } { 2 "d" } { 1 "e" } } sort-keys ] unit-test
28 [ ] [ all-words natural-sort drop ] unit-test