入力：

入力は、（あなたの言語での）ナッツのランダム化された配列であり、可能なナッツが続きます。プログラムには、整数コードなど、さまざまな種類のナットを表す方法が必要です。プログラムは、ナットのあらゆる構成のあらゆるサイズの配列を処理できる必要があります。

可能なナット：

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文字のコストがかかります（思いつく最高の比較はPeterの場合と同じです）。

GolfScript、32文字

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

ハワードのソリューションと同じ入力および出力形式。

Brachylog v2、10バイト

p.¬{s₂=}∨Ė

オンラインでお試しください！

ブルートフォースソリューション。（これは、チャレンジが「完全なプログラム」と言っていないため許可されている関数です。）また、ほとんどの場合、仕様の直接翻訳です（唯一の微妙な点は、すべての暗黙的な制約が適切な場所、したがって、それらを明確にするために余分な文字は必要ありません）。

これは、任意の種類のリストを再配置するための一般的なアルゴリズムであり、2つの触れる要素がないように注意してください。要素の文字列表現を処理でき、整数コードも同様に処理できます。したがって、「あなたのプログラムは、整数コードなどのさまざまな種類のナットを表す方法を持たなければならない」ということは、実際には問題ではありません。質問からの要件が解釈されます。

説明

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

これを実行する