#Wolfram Language <s>255</s> 186 bytes There should be a way to efficiently compress the list of colors. SortBy[#,StringSplit@{"yellow green brown scarlet black ochre peach ruby olive violet fawn lilac gold chocolate mauve cream crimson silver rose azure lemon russet grey purple white pink orange blue"}~Position~#&]&