Вхід:

Введення - це рандомізований масив гайок (на вашій мові), наступні можливі гайки. У вашій програмі повинен бути спосіб представлення кожного виду гайки, наприклад, цілого коду. Програма повинна вміти обробляти масив розмірів будь-якої конфігурації гайок.

Можливі горіхи:

Kola nut
Macadamia
Mamoncillo
Maya nut
Mongongo
Oak acorns
Ogbono nut
Paradise nut
Pili nut
Pistachio
Walnut

Вихід:

Вихід повинен бути масивом, відсортованим таким чином, щоб не було сусідніх гайок такого ж типу. Якщо це неможливо, на виході повинен бути порожній масив.

Приклад введення (спрощений):

["walnut", "walnut", "pistachio"]

Приклад Вихід:

["walnut", "pistachio", "walnut"]

Рішення можуть не просто перетасувати масив, поки він не стане унікальним випадково. Використовуваний тип повинен бути детермінованим

GolfScript, 42 41 37 38 символів

~.`{\`{=}+%1-,}+$.,)2//zip[]*.2<..&=*p

Код очікує, що введення на STDIN і друкує результат STDOUT, наприклад:

> ["walnut" "walnut" "walnut" "macadamia" "pistachio"]
["walnut" "macadamia" "walnut" "pistachio" "walnut"]

> ["walnut" "walnut" "walnut" "macadamia" "walnut"]
[]

Сценарій став довшим, ніж очікувалося, але, мабуть, є місце для вдосконалення.

Редагувати: Приклад списку з одним елементом коштує мені 1 символ (найкраще порівняння, яке я міг би придумати, такий же, як у Петра).

GolfScript, 32 символи

~:x{]x\-,}$.,)2//zip[]*.2<..&=*`

Той же формат введення та виведення, як і рішення Говарда.

Brachylog v2, 10 байт

p.¬{s₂=}∨Ė

Спробуйте в Інтернеті!

Жорстоке рішення. (Це функція, дозволена тому, що виклик не говорить про "повну програму".) Це також здебільшого прямий переклад специфікації (єдина реальна тонкоща полягає в тому, що мені вдалося впорядкувати речі так, щоб усі неявні обмеження надійшли саме в потрібні місця, таким чином, не потрібні зайві символи для їх розмежування).

Зауважте, що це загальний алгоритм для перестановки будь-якого виду списку, щоб він не мав двох дотикових елементів; він може обробляти рядкові представлення елементів, а також обробляти цілі коди так само добре. Тому насправді не має значення, як "Ваша програма повинна мати спосіб подання кожного виду гайки, наприклад, цілий код". вимога з питання тлумачиться.

Пояснення

p.¬{s₂=}∨Ė
p            Find a permutation of {the input}
  ¬{   }     which does not have the following property:
    s₂         it contains a pair of adjacent elements
      =        that are equal
        ∨    {no constraint on what value the equal elements can have}
 .           If you find such a permutation, output it.
        ∨    If no permutation is found, ignore the input and
         Ė     {output} an empty list

J, 80 символів

]`_:@.(0<2&([:+/=/\))({.~-:@#),((],.|.)~>.@-:@#)<"1;(\:#&.>)(</.])[;.1' ',1!:1[1

Насправді не в тій же лізі, що і Golfscript на цій. Я підозрюю, що заробляються надбавки, але 14 символів, необхідних просто для внесення списку в програму, [;.1' ',1!:1[1є головним недоліком.

В основному програма займає список, групує схожі елементи разом, сортує за кількістю елементів у кожній групі за спаданням та чергує вихід між першою та другою половиною списку. Решта, якщо код позбавляється від сторонніх елементів, і вирішує, чи список дійсний вихід (виведення нескінченності, _якщо його немає).

Приклад:

macadamia walnut walnut pistachio walnut

група (</.]):

macadamia walnut walnut walnut pistachio

сортувати (\:#&.>):

walnut walnut walnut macadamia pistachio

гул ((],.|.)~>.@-:@#):

walnut macadamia walnut pistachio walnut

Желе , 14 байт

Ġz0UẎḟ0ịµẋ⁻ƝẠ$

Спробуйте в Інтернеті!

Останні 6 байтів можна видалити, якщо ми не можемо визначити поведінку щодо недійсних даних.

Стакс , 10 байт

│éÿ∞å[zàL⌂

Запустіть і налагоджуйте його

Ось таку ж програму розпаковують, не розгортають і коментують.

|T      get all permutations
{       block to filter by
  :g_=  after dropping repeated elements, it's still equal
f       execute filter
|c      terminate and pop if falsy (no match)
hJ      take the first permutation, and join with spaces

Виконати цей