RosettaCodeData/Task/Order-by-pair-comparisons/Mathematica/order-by-pair-comparisons.math

mirror of https://github.com/acmeism/RosettaCodeData.git
ClearAll[HumanOrderCheck]
HumanOrderCheck[opt1_,opt2_]:=ChoiceDialog[Row@{"Is {",opt1,", ", opt2, "} ordered?"},{"Yes"->True,"No"->False}]
Sort[{"violet","red","green","indigo","blue","yellow","orange"},HumanOrderCheck]
	`ClearAll[HumanOrderCheck]`
	`HumanOrderCheck[opt1_,opt2_]:=ChoiceDialog[Row@{"Is {",opt1,", ", opt2, "} ordered?"},{"Yes"->True,"No"->False}]`
	`Sort[{"violet","red","green","indigo","blue","yellow","orange"},HumanOrderCheck]`