Order by pair comparisons: Difference between revisions
Add Factor
m (→{{header|Phix}}: added 10% vs 50% initial gap note) |
(Add Factor) |
||
Line 30:
=={{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>
=={{header|Julia}}==
| |||