การป้อนข้อมูล:

อินพุตคืออาร์เรย์ของถั่วแบบสุ่ม (ในภาษาของคุณ) ถั่วที่เป็นไปได้มีดังนี้ โปรแกรมของคุณต้องมีวิธีในการเป็นตัวแทนของถั่วแต่ละชนิดเช่นรหัสจำนวนเต็ม โปรแกรมจะต้องสามารถจัดการขนาดอาร์เรย์ของการกำหนดค่าของถั่วใด ๆ

ถั่วที่เป็นไปได้:

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<..&=*`

รูปแบบอินพุตและเอาต์พุตเดียวกันกับโซลูชันของ Howard

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

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

walnut macadamia walnut pistachio walnut

เยลลี่ 14 ไบต์

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

ลองออนไลน์!

6 ไบต์สุดท้ายสามารถลบได้หากเรามีพฤติกรรมที่ไม่ได้กำหนดสำหรับอินพุตที่ไม่ถูกต้อง

Stax , 10 ไบต์

│éÿ∞å[zàL⌂

เรียกใช้และแก้ไขข้อบกพร่อง

ต่อไปนี้เป็นโปรแกรมเดียวกันที่คลายแพ็ก ungolfed และแสดงความคิดเห็น

|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

เรียกใช้อันนี้