Многоцветное пальто


22

Вызов

Учитывая список уникальных названий цветов в качестве входных данных, сортируйте их в порядке, в котором они сначала появляются в Amazing Technicolor Dreamcoat Джозефа .


пример

Input:  green, blue, red, brown
Output: red, green, brown, blue

Полный список цветов по порядку:

 1. red
 2. yellow
 3. green
 4. brown
 5. scarlet
 6. black
 7. ochre
 8. peach
 9. ruby
10. olive
11. violet
12. fawn
13. lilac
14. gold
15. chocolate
16. mauve
17. cream
18. crimson
19. silver
20. rose
21. azure
22. lemon
23. russet
24. grey
25. purple
26. white
27. pink
28. orange
29. blue

Или как массив строк:

["red","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"]

правила

  • Вы можете принимать ввод любым разумным и удобным способом (например, массивом строк, строкой с разделителями, отдельными строками), если это разрешено нашими стандартными правилами ввода / вывода , но, пожалуйста, укажите свой метод ввода в своем ответе.
  • Вы можете сделать то же самое для вашего вывода.
  • На входе будут только цвета из приведенного выше списка.
  • Ваше решение должно быть в состоянии обрабатывать пустые входы.
  • Вы можете выбрать, будут ли все слова на входе последовательно прописными, строчными или заглавными, но регистр вашего вывода должен совпадать с регистром ввода.
  • Это поэтому выигрывает наименьшее количество байтов на каждом языке.
  • Как всегда, стандартные лазейки запрещены.

Контрольные примеры

Input:  []
Output: []

Input:  ["green", "blue", "red", "brown"]
Output: ["red", "green", "brown", "blue"]

Input:  ["gold", "grey", "green"]
Output: ["green", "gold", "grey"]

Input:  ["ruby","yellow","red","grey"]
Output: ["red", "yellow", "ruby", "grey"]

Input:  ["gold", "green", "fawn", "white", "azure", "rose", "black", "purple", "orange", "silver", "ruby", "blue", "lilac", "crimson", "pink", "cream", "lemon", "russet", "grey", "olive", "violet", "mauve", "chocolate", "yellow", "peach", "brown", "ochre", "scarlet", "red"]
Output: ["red", "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"]

1
Песочница (трудно поверить, что она томилась там 18 месяцев!)
Лохматый

Ответы:


11

PowerShell , 262 155 151 127 125 95 байт

$args|sort{"rlyegwbrscbrocpyrvo lvnfaldgccvmacmcvseraolsrygpptwkpnoeb".indexof((-join$_[3,0]))}

Попробуйте онлайн!

Наивный подход. PowerShell sort-objectможет выполнять сортировку на основе блока скрипта, который выполняется для каждого объекта. Здесь мы просто получаем .IndexOf()цвет из строки, которая присваивает числовое значение каждому цвету, а затем сортирует на основе этих чисел. Строка состоит из четвертой и первой букв каждого цвета, чтобы обеспечить уникальность. Вывод неявный.

-4 байта благодаря Шегги.
-2 байта благодаря маззи.
Колоссальные -30 байтов благодаря KGlasier.


Я не знаю, сможете ли вы сделать это эффективно (побайтово), но если вы сортируете по длине подстроки длиной 3, а затем сортируете по второму ключу исходной строки, единственное столкновение green greyпроисходит в правильном алфавитном порядке.
HyperNeutrino

2
@ Shaggy Да, это работает, потому .IndexOf()что вернется, -1если строка не найдена, что сортирует redв правильном порядке. Благодарность!
AdmBorkBork

Я думаю, что вы можете удалить скобки вокруг строки.
Маззи

@mazzy Действительно, спасибо!
AdmBorkBork

1
@KGlasier Ого, спасибо, что нашли эту строку! Это экономит много байтов.
AdmBorkBork

8

JavaScript (SpiderMonkey) ,  106 105  104 байта

«Если есть сомнения, просто хэш кровавый вклад».

a=>a.sort((a,b)=>(g=s=>'i0008bar5dj60007f3001p09mseqg0hk40cnl2o'[parseInt(s,36)*50%257%170%40])(a)>g(b))

Попробуйте онлайн!


Я видел (и был впечатлен) решения на основе хеша, как это раньше. Есть ли где-нибудь объяснение того, как генерируются значения магической строки / множителя / мода? Является ли это просто грубой силой, пока вы не найдете набор значений, который дает уникальный результат для каждого из возможных входных сигналов цвета, или существует более разумный подход?
Джек Браунштейн

1
@JackBrounstein Это был простой и грубый поиск методом грубой силы, который пытался выбрать случайные значения и минимизировать только максимальный результат (после последнего по модулю) без учета длины полной цепочки (например %99%55, не лучше, чем %123%55при таком подходе). Так что это, безусловно, неоптимально. Я могу попробовать что-то более сложное позже.
Арно

6

Желе , 28 байт

“½Ṗ©cƘʂẒẹMMỤẓHP’Œ?“ðÑþQ’,ḥµÞ

Попробуйте онлайн!

Как это работает

µпревращает все влево в монадическую цепочку, которая Þотображает входной массив и сортирует входные данные в соответствии с сгенерированными значениями.

“½Ṗ©cƘʂẒẹMMỤẓHP’ устанавливает возвращаемое значение 176073885534954276199526358143331.

Œ?[20,28,15,3,5,26,18,16,8,30,4,25,2,21,22,11,24,1,23,10,29,12,17,27,14,9,6,13,7,19]

“ðÑþQ’выходы 391695582; ,добавляет его к перестановке. Затем вычислите 391695582- ю хеш-функцию Джелли , сопоставив получившиеся сегменты с целыми числами перестановки.

Магическая константа 391695582 была найдена утилитой Желе .

dennis-home:utils$ time ./findhash 30 29 <<< '["red","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"]'
391695582

real    0m2.058s
user    0m15.077s
sys     0m0.023s

1
353690280752 хеширует 29 цветов в 29 сегментах, но для кодирования требуется еще один байт. Использование верхнего регистра (332849952364) или заголовка (862442225888) также имеет размер 28 байт.
Деннис

5

Python 3 , 93 байта

lambda r:sorted(r,key=lambda s:'iV^ZzwnFM@pYuOobXGAKyf[tUR]E'.find(chr(int(s,36)%127%60+64)))

Попробуйте онлайн!

Читает каждый цвет как основание-36 int. Брут-форс модули и выбрал произвольное смещение среди 19, которые не требуют побегов.


4

Powershell, 124 120 124 119 118 102 байта

$args|sort{$c=$_
'bluOrPiWPuG*yRusLeARoSiCriCrMCGoLFVOlRuPOBlSBGYR'-csplit'(?=[A-Z])'|%{$c-like"$_*"}}

Попробуйте онлайн!

Объяснение:

  1. Строка данных содержит первые значащие буквы цветовых меток в порядке убывания. За исключением Greyэтикетки - G*yкороче.

  2. -csplit'(?=[A-Z])' разбивает строку данных на массив (blu,Or,Pi,W,Pu,G*y,Rus,Le,A,Ro,Si,Cri,Cr,M,C,Go,L,F,V,Ol,Ru,P,O,Bl,S,B,G,Y,R)

  3. |%{$c-like"$_*"}отображает массив строк в массив логических значений. Где Trueозначает «цветовая метка начинается с этой строки» (например, оператор без учета регистра, csplit - с учетом регистра. См. Документ ).

  4. sort{}сортирует цветные метки по массивам логических значений в порядке возрастания .

Сортировка по массиву - очень интересная функция в Powershell. В этом сценарии все массивы имеют одинаковую длину и содержат только логические значения. Эта сортировка выполняется в лексографическом порядке булевых массивов.

Поэтому строка может содержать однобуквенные сокращения для последних меток. Если есть совпадение в начале массива, совпадения в конце не имеют никакого эффекта.

       blu Or Pi W Pu G*y Rus Le A Ro Si Cri Cr M C Go L F V Ol Ru P O Bl S B G Y R
green: -   -  -  - -  -   -   -  - -  -  -   -  - - -  - - - -  -  - - -  - - T - -
gold : -   -  -  - -  -   -   -  - -  -  -   -  - - T  - - - -  -  - - -  - - T - -
grey : -   -  -  - -  T   -   -  - -  -  -   -  - - -  - - - -  -  - - -  - - T - -

     : green < gold < grey

Где Tэто trueи -есть false.


Тестовый скрипт:

$f = {

$args|sort{$c=$_
'bluOrPiWPuG*yRusLeARoSiCriCrMCGoLFVOlRuPOBlSBGYR'-csplit'(?=[A-Z])'|%{$c-like"$_*"}}

}

@(
    ,( @(), @() )
    ,( ('green', 'blue', 'red', 'brown'), ('red', 'green', 'brown', 'blue') )
    ,( ("gold", "grey", "green"), ("green", "gold", "grey") )
    ,( ("ruby","yellow","red","grey"), ("red", "yellow", "ruby", "grey") )
    ,( ("gold", "green", "fawn", "white", "azure", "rose", "black", "purple", "orange", "silver", "ruby", "blue", "lilac", "crimson", "pink", "cream", "lemon", "russet", "grey", "olive", "violet", "mauve", "chocolate", "yellow", "peach", "brown", "ochre", "scarlet", "red"),
       ("red", "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") )
) | % {
    $inp,$expected = $_
    $result = &$f @inp  # splatting
    "$("$result"-eq"$expected"): $result"
}

Выход:

True:
True: red green brown blue
True: green gold grey
True: red yellow ruby grey
True: red 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

У меня This site can’t be reachedошибка. Сожалею.
Маззи

1
Добавлен обновленный TIO для вас.
Лохматый

1
Мне удалось получить новый IP для TIO сегодня. Это все еще заблокировано для вас?
Деннис

Оно живое!!! Круто! И спасибо!
Маззи

3

Я улучшу сжатие строк через некоторое время

Japt , 88 78 71 байт

ñ@`䊐âwrÒ.cÖ¨acru½ivo¤faØngoÒqauvœamsolv€osz¨e¶s gœrpl–tpˆ„g½u`bXé4 ¯3

Попробуйте онлайн!


Быстрый порт одного из других решений здесь занимает 46 байтов, если вы хотите попробовать его.
Лохматый

@ Shaggy Я не думаю, что они больше пытаются это сделать: P
только ASCII

3

Wolfram Language 255 213 199 байт

Четырнадцать байтов спасен Деннисом, который избегал «отметок», используя символы вместо строк.

SortBy[#,{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~#&]&

Попробуйте онлайн!


2

Python 2 , 186 байт

lambda a:[y for x,y in sorted((max(" y gree br sc bla oc pe rub ol v f li go ch m cre cri si ro a le rus grey pu w pi or blu ".find(" %s "%c[:i+1])for i,j in enumerate(c)),c)for c in a)]

Попробуйте онлайн!

Находит все совпадения для прогрессивных символьных подстрок (например, «green» проверит наличие «g», «gr», «gre», «gree» и «green») в строке идентификатора и сохраняет максимальный индекс. «red» всегда первый, anf find () возвращает -1 для пропущенных совпадений, поэтому для красного нет идентификатора.

Как только цвета превращаются в пары (индекс, цвет), сортирует массив по первому элементу пары, а затем отбрасывает первый элемент каждой пары.


2

Python 3 , 130 байт

lambda*a:sorted(a,key=lambda c:("r,ylgebwsrtbcorpcryovvlfnlagdccamvca cmnsvrearlorsgyppwtpkonbe".find(c[::3]+" "*(c=="cream")),c))

Попробуйте онлайн!


@ Шэгги, я так не думаю?
Можете

@AdmBorkBork Спасибо, только что понял, что имел в виду Шегги. Я сравнивал только зеленый и серый цвета друг с другом. LOL
HyperNeutrino

Чтобы добавить к комментариям Shaggy и AdmBorkBork, «зеленый» и «серый» оба начинаются с «gre».
DavidC

@ Шэгги исправил, я думаю
HyperNeutrino

1
@ Shaggy Исправил это, спасибо. Требуется немного взломать для крема, так как caявляется подстрокой ccaдля шоколадного масла.
HyperNeutrino

2

C # (интерактивный компилятор Visual C #) , 321 219 210 161 159 138 байт

n=>n.OrderBy(a=>a!="grey"?"yelgrebroscablaochperuboliviofawlilgolchomaucrecrisilrosazulemruspurwhipinorablu".IndexOf(a.Substring(0,3)):65)

Попробуйте онлайн!

-3 байта благодаря Shaggy, -18 благодаря TheLethalCoder

Принимает вход как List<string>, возвращаетIOrderedEnumerable<string>

Как это работает, так это то, что он упорядочивает список по индексу каждой строки в исходной строке. Оригинальная строка имеет все цвета, кроме серого, превращенного в первые три буквы. Серого там нет, так как зеленый и серый вызовут двусмысленность. Красного там тоже нет, так как IndexOfвозвращает -1, если строка не появляется.

Укороченная версия, принимающая IOrderedEnumerable в качестве входных данных, 137 байт

n=>n.ThenBy(a=>a!="grey"?"yelgrebroscablaochperuboliviofawlilgolchomaucrecrisilrosazulemruspurwhipinorablu".IndexOf(a.Substring(0,3)):65)

Использует тот факт, что ThenByон на 1 байт короче OrderBy, но ThenByработает только на IOrderedEnumerables.

Попробуйте онлайн!


Я думаю, что вы можете удалить redиз строки поиска и заменить 68на, 65чтобы сохранить 3 байта. На моем телефоне, так что еще не полностью протестировал его.
Лохматый

Вы можете использовать строку inline с неявным возвратом для 142 байтов. n=>n.OrderBy(a=>a!="grey"?"redyelgrebroscablaochperuboliviofawlilgolchomaucrecrisilrosazulemruspurwhipinorablu".IndexOf(a.Substring(0,3)):68);Однако вам необходимо включить usings в ваш счетчик байтов, так как они необходимы для выполнения. Вы можете использовать трюк пространства имен, чтобы сократить необходимое количество.
TheLethalCoder

Если я использую трюк с пространством имен, нужно ли мне добавлять пространство имен к моему количеству байтов?
Воплощение Невежества

Я могу просто поменять компилятор на Visual C # Interactive Compiler, и тогда мне не нужно будет добавлять употребления
Embodiment of Ignorance

Хорошая идея перейти на Interactive, но да, если бы вы сделали трюк с пространством имен, вам нужно было бы включить его в число байтов. По существу добавление namespace System.Linq{}или что бы вы ни выбрали.
TheLethalCoder

1

Древесный уголь , 69 68 63 56 байт

F⪪”E$↥l∧_∧K⁰RY⸿h⊕ψVG⌕gbW⟧⁼″5/²H✳<◨A³?ω↗⊘‴⭆1”²Φθ№κ⎇Σιlilι

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

F⪪”E$↥l∧_∧K⁰RY⸿h⊕ψVG⌕gbW⟧⁼″5/²H✳<◨A³?ω↗⊘‴⭆1”²

Возьмите сжатую строку edyeeebrscckhrpeubivvifa99gohomaamrisiosazemuseypuwhpiorluи обведите каждую подстроку длиной 2.

Φθ№κ⎇Σιlilι

Для каждой подстроки выведите те входные строки, которые содержат эту подстроку, если только не подстрока 99, в этом случае ищите lilвместо этого. ( lilacэто единственный цвет, который не имеет уникальной двухбуквенной подстроки; oliveвключает li; silverвключает ilи blackвключает lac. fawnи azureможет быть обнаружен с использованием только одной буквы, но здесь это не поможет.)


1

Pyth, 66 байт

oxc."ayÇæ£ðÐ¥~@iF[2BÍÐ:Yë)^ksTTã"2s@LN,03

Попробуйте онлайн здесь или проверьте все тестовые примеры сразу здесь .

Цвета в списке могут быть однозначно идентифицированы путем взятия символов в индексе 0и 3при условии модульной индексации. Это приводит к следующему отображению:

rr -> red
yl -> yellow
ge -> green
bw -> brown
sr -> scarlet
bc -> black
or -> ochre
pc -> peach
ry -> ruby
ov -> olive
vl -> violet
fn -> fawn
la -> lilac
gd -> gold
cc -> chocolate
mv -> mauve
ca -> cream
cm -> crimson
sv -> silver
re -> rose
ar -> azure
lo -> lemon
rs -> russet
gy -> grey
pp -> purple
wt -> white
pk -> pink
on -> orange
be -> blue

Полное объяснение:

oxc."..."2s@LN,03Q   Implicit: Q=eval(input())
                     Trailing Q inferred, dictionary string replaced with ... for brevity
o                Q   Order the elements of Q, as N, using:
              ,03      [0,3]
           @LN         Get the characters at the above indices in N
          s            Concatenate into a string
                         The above is result {1}
   ."..."              The compressed dictionary string
  c      2             Split into chunks of length 2
 x                     Get the index of {1} in the above
                       Implicit print of sorted list

1

05AB1E , 48 байтов

Σ.•Aå₂мÕh∊þèmvƶ\kΛ1YŠíJ>J#θ₁2©€,Ù{η¦ù-•2ôy¬s3è«k

То же решение, что и большинство других ответов. Постараюсь сделать это позже.

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

Σ          # Sort the (implicit) input-list by:
 .•Aå₂мÕh∊þèmvƶ\kΛ1YŠíJ>J#θ₁2©€,Ù{η¦ù-•
           #  Push compressed string "rrylgebwsrbcorpcryovvlfnlagdccmvcacmsvrearlorsgyppwtpkonbe"
  2ô       #  Split into parts of size 2
 y         #  Push the current string of the list we're sorting
  ¬        #  Push its head (without popping)
   s       #  Swap so the string is at the top of the stack again
    3è     #  Get the character at index 3 (with automatic wraparound)
      «    #  Merge both characters together
       k   #  And get the index in the compressed string to sort on

См. Этот совет 05AB1E (раздел Как сжимать строки, не являющийся частью словаря? ), Чтобы понять, как .•Aå₂мÕh∊þèmvƶ\kΛ1YŠíJ>J#θ₁2©€,Ù{η¦ù-•это происходит "rrylgebwsrbcorpcryovvlfnlagdccmvcacmsvrearlorsgyppwtpkonbe".

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.