Order by pair comparisons: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 28:
* A routine that does not ask the user "too many" comparison questions should be used.
<br><br>
=={{header|Arturo}}==
<lang rebol>lst: ["violet" "red" "green" "indigo" "blue" "yellow" "orange"]
count: 0
findSpot: function [l,e][
if empty? l -> return 0
loop.with:'i l 'item [
answer: input ~"Is |item| greater than |e| [y/n]? "
if answer="y" -> return i
]
return dec size l
]
sortedLst: new []
loop lst 'element ->
insert 'sortedLst findSpot sortedLst element element
print ""
print ["sorted =>" sortedLst]</lang>
{{out}}
<pre>Is violet greater than red [y/n]? y
Is red greater than green [y/n]? y
Is green greater than indigo [y/n]? y
Is indigo greater than blue [y/n]? n
Is green greater than blue [y/n]? n
Is red greater than blue [y/n]? y
Is indigo greater than yellow [y/n]? n
Is green greater than yellow [y/n]? y
Is indigo greater than orange [y/n]? n
Is yellow greater than orange [y/n]? y
sorted => [indigo orange yellow green blue red violet]</pre>
=={{header|C}}==
|