10 lines
287 B
Factor
10 lines
287 B
Factor
USING: kernel math math.order sequences tools.test ;
|
|
IN: sorting.extras
|
|
|
|
{ { 0 2 1 } } [ { 10 30 20 } [ <=> ] argsort ] unit-test
|
|
{ { 2 0 1 } } [
|
|
{ "hello" "goodbye" "yo" } [ [ length ] bi@ <=> ] argsort
|
|
] unit-test
|
|
|
|
{ 1 { 2 3 4 5 } } [ 1 { 1 2 3 4 } [ dupd + ] map-sort ] unit-test
|