Order by pair comparisons: Difference between revisions

=={{header|Factor}}==

{{works with|Factor|0.99 2021-02-05}}

Asking for an ordering specifier taken as input inside a custom comparator.

<lang factor>USING: formatting io kernel math.order prettyprint qw sorting ;

qw{ violet red green indigo blue yellow orange }

[ "Is %s > %s? (y/n) " printf readln "y" = +gt+ +lt+ ? ] sort .</lang>

{{out}}

<pre>

Is violet > red? (y/n) y

Is green > indigo? (y/n) n

Is blue > yellow? (y/n) y

Is red > green? (y/n) n

Is violet > green? (y/n) y

Is violet > indigo? (y/n) y

Is yellow > orange? (y/n) y

Is red > orange? (y/n) n

Is green > orange? (y/n) y

Is green > yellow? (y/n) y

Is green > blue? (y/n) n

Is indigo > blue? (y/n) y

{ "red" "orange" "yellow" "green" "blue" "indigo" "violet" }

</pre>