Order by pair comparisons: Difference between revisions
no edit summary
Drkameleon (talk | contribs) (Added Arturo implementation) |
No edit summary |
||
Line 597:
Sorted: ["red", "orange", "yellow", "green", "blue", "indigo", "violet"]. Total requests: 14.
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>ClearAll[HumanOrderCheck]
HumanOrderCheck[opt1_,opt2_]:=ChoiceDialog[Row@{"Is {",opt1,", ", opt2, "} ordered?"},{"Yes"->True,"No"->False}]
Sort[{"violet","red","green","indigo","blue","yellow","orange"},HumanOrderCheck]</lang>
{{out}}
After some Yes/No clicks you should get:
<pre>{"red", "orange", "yellow", "green", "blue", "indigo", "violet"}</pre>
=={{header|Nim}}==
| |||