Eingang:

Die Eingabe ist eine zufällige Anordnung von Nüssen (in Ihrer Sprache), die möglichen Nüsse folgen. In Ihrem Programm muss jede Art von Mutter dargestellt werden können, z. B. ein ganzzahliger Code. Das Programm muss in der Lage sein, ein Array beliebiger Größe und Konfiguration von Muttern zu verarbeiten.

Mögliche Muttern:

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

Ausgabe:

Die Ausgabe muss so sortiert sein, dass keine benachbarten Muttern der gleichen Art vorhanden sind. Ist dies nicht möglich, sollte die Ausgabe ein leeres Array sein.

Beispieleingabe (vereinfacht):

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

Beispielausgabe:

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

Lösungen können das Array nicht einfach mischen, bis es zufällig eindeutig wird. Die Art muss deterministisch sein

GolfScript, 42 41 37 38 Zeichen

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

Der Code erwartet eine Eingabe an STDIN und gibt das Ergebnis an STDOUT aus, zB:

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

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

Das Skript wurde länger als erwartet, aber ich nehme an, dass es Raum für Verbesserungen gibt.

Bearbeiten: Der Fall einer Liste mit einem einzelnen Element kostet mich 1 Zeichen (der beste Vergleich, den ich finden konnte, ist der gleiche wie bei Peter).

GolfScript, 32 Zeichen

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

Gleiches Eingabe- und Ausgabeformat wie Howards Lösung.

Brachylog v2, 10 Bytes

p.¬{s₂=}∨Ė

Probieren Sie es online!

Brute-Force-Lösung. (Dies ist eine Funktion, die erlaubt ist, weil die Herausforderung nicht "volles Programm" sagt.) Es ist auch meistens eine direkte Übersetzung der Spezifikation (die einzige feine Sache ist, dass ich es geschafft habe, die Dinge so anzuordnen, dass alle impliziten Einschränkungen in genau der angekommen sind richtige Stellen, so dass keine zusätzlichen Zeichen erforderlich sind, um sie zu disambiguieren).

Beachten Sie, dass dies ein allgemeiner Algorithmus zum Neuanordnen einer Liste ist, sodass sich keine zwei Elemente berühren. es kann Zeichenfolgendarstellungen der Elemente verarbeiten, und es kann auch ganzzahlige Codes verarbeiten. Es spielt also keine Rolle, wie "Ihr Programm jede Art von Nuss darstellen muss, z. B. einen Integer-Code". Anforderung aus der Frage wird interpretiert.

Erläuterung

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 Zeichen

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

Nicht wirklich in der gleichen Liga wie Golfscript. Ich vermute, es gibt Gewinne zu erzielen, aber die 14 Zeichen, die benötigt werden, um die Liste in das Programm aufzunehmen, [;.1' ',1!:1[1sind ein großes Handicap.

Grundsätzlich nimmt das Programm die Liste auf, gruppiert ähnliche Elemente, sortiert nach Anzahl der Elemente in jeder Gruppe absteigend und wechselt die Ausgabe zwischen der ersten und der zweiten Hälfte der Liste. Der Rest, wenn der Code überflüssige Elemente entfernt und entscheidet, ob die Liste eine gültige Ausgabe ist (Ausgabe unendlich, _wenn dies nicht der Fall ist).

Beispiel:

macadamia walnut walnut pistachio walnut

Gruppe (</.]):

macadamia walnut walnut walnut pistachio

sortieren (\:#&.>):

walnut walnut walnut macadamia pistachio

ravel ((],.|.)~>.@-:@#):

walnut macadamia walnut pistachio walnut

Jelly , 14 Bytes

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

Probieren Sie es online!

Die letzten 6 Bytes können entfernt werden, wenn wir undefiniertes Verhalten für ungültige Eingaben haben können.

Stax , 10 Bytes

│éÿ∞å[zàL⌂

Führen Sie es aus und debuggen Sie es

Hier ist das gleiche Programm entpackt, ungolfed und kommentiert.

|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

Führen Sie dieses aus