3 lines
220 B
Text
3 lines
220 B
Text
ClearAll[HumanOrderCheck]
|
|
HumanOrderCheck[opt1_,opt2_]:=ChoiceDialog[Row@{"Is {",opt1,", ", opt2, "} ordered?"},{"Yes"->True,"No"->False}]
|
|
Sort[{"violet","red","green","indigo","blue","yellow","orange"},HumanOrderCheck]
|