Order by pair comparisons: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Added Arturo implementation) |
No edit summary |
||
Line 597: | Line 597: | ||
Sorted: ["red", "orange", "yellow", "green", "blue", "indigo", "violet"]. Total requests: 14. |
Sorted: ["red", "orange", "yellow", "green", "blue", "indigo", "violet"]. Total requests: 14. |
||
</pre> |
</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}}== |
=={{header|Nim}}== |