ท้าทาย

ได้รับรายชื่อของที่ไม่ซ้ำกันชื่อสีเป็น input จัดเรียงพวกเขาเพื่อที่พวกเขาปรากฏตัวครั้งแรกในโจเซฟที่น่าตื่นตาตื่นใจเท็ค 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"]

กฎระเบียบ

• คุณสามารถป้อนข้อมูลด้วยวิธีการที่สมเหตุสมผลและสะดวกสบาย (เช่นอาร์เรย์ของสตริงสตริงที่คั่นด้วยสตริงแต่ละสตริง) ตราบเท่าที่มันได้รับอนุญาตตามกฎ I / O มาตรฐานของเราแต่โปรดระบุวิธีป้อนข้อมูลของคุณในคำตอบของคุณ
• คุณสามารถทำเช่นเดียวกันสำหรับผลลัพธ์ของคุณ
• ข้อมูลที่ป้อนจะมีเพียงสีจากรายการด้านบนเท่านั้น
• โซลูชันของคุณควรสามารถจัดการอินพุตว่างได้
• คุณอาจจะเลือกได้ว่าทุกคำพูดในการป้อนข้อมูลที่มีอย่างต่อเนื่องเป็นตัวพิมพ์ใหญ่พิมพ์เล็กหรือชื่อกรณี แต่ปลอกเอาท์พุทของคุณจะต้องตรงกับของเข้าของคุณ
• นี่คือโค้ดกอล์ฟที่มีจำนวนไบต์ต่ำสุดในแต่ละภาษาที่ชนะ
• เช่นเคยห้ามช่องโหว่มาตรฐาน

กรณีทดสอบ

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"]

PowerShell , 262 155 151 127 125 95 ไบต์

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

ลองออนไลน์!

วิธีการไร้เดียงสา PowerShell sort-objectสามารถจัดเรียงตามบล็อกสคริปต์ที่เรียกใช้งานสำหรับทุกวัตถุ ที่นี่เราแค่รับ.IndexOf()สีจากสตริงซึ่งจะกำหนดค่าตัวเลขให้กับแต่ละสีแล้วเรียงลำดับตามตัวเลขเหล่านั้น สตริงถูกสร้างจากตัวอักษรตัวที่สี่และตัวแรกของแต่ละสีเพื่อให้แน่ใจว่ามีความเป็นเอกลักษณ์ เอาท์พุทเป็นนัย

-4 ไบต์ต้องขอบคุณ Shaggy
-2 ไบต์ต้องขอบคุณ
มหันต์ -30 ไบต์ขอบคุณ KGlasier

JavaScript (SpiderMonkey) ,  106 105  104 ไบต์

"เมื่อมีข้อสงสัยเพียงแค่แฮชอินพุตเลือด"

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

ลองออนไลน์!

เยลลี่ขนาด 28 ไบต์

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

ลองออนไลน์!

มันทำงานอย่างไร

µเปลี่ยนทุกอย่างให้เป็นห่วงโซ่ monadic ซึ่งÞแมปผ่านอาร์เรย์อินพุตแล้วเรียงลำดับอินพุตตามค่าที่สร้าง

“½Ṗ©cƘʂẒẹMMỤẓHP’ ตั้งค่าส่งคืนเป็น 176073885534954276199526358143331

Œ?$\small[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; ,prepends มันเพื่อการเปลี่ยนแปลง จากนั้นḥค ompute 391695582 วุ้นของ^THฟังก์ชันแฮช, การทำแผนที่บุ้งกี๋เกิดจำนวนเต็มของการเปลี่ยนแปลงที่

คงมายากล 391695582 ถูกพบโดยutils วุ้นของ

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

Python 3 , 93 ไบต์

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

ลองออนไลน์!

intอ่านแต่ละสีเป็นฐาน-36 เดรัจฉานถูกบังคับ moduli และเลือกชดเชยโดยพลการในหมู่ 19 ที่ไม่ต้องการหนี

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 - คำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ดู doc )

4. sort{}แปลก lables สีโดยอาร์เรย์ของบูลีนในการสั่งซื้อน้อยไปหามาก

การเรียงลำดับตามอาเรย์เป็นคุณลักษณะที่น่าสนใจมากใน Powershell ในสคริปต์นี้อาร์เรย์ทั้งหมดมีความยาวเท่ากันและมีค่าบูลีนเท่านั้น การเรียงลำดับนี้จะดำเนินการตามลำดับ lexographic ของอาร์เรย์บูลีน

ดังนั้นสตริงสามารถมีตัวย่อหนึ่งตัวอักษรสำหรับป้ายกำกับสุดท้าย หากมีการแข่งขันที่จุดเริ่มต้นของอาร์เรย์การแข่งขันในตอนท้ายจะไม่มีผล

       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

ฉันจะปรับปรุงการบีบอัดสตริงในขณะที่

Japt , 88 78 71 ไบต์

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

ลองออนไลน์!

ภาษา Wolfram 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~#&]&

ลองออนไลน์!

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)]

ลองออนไลน์!

ค้นหาการจับคู่ทั้งหมดสำหรับสตริงย่อยอักขระแบบก้าวหน้า (เช่น: "สีเขียว" จะตรวจสอบ "g", "gr", "gre", "gree" และ "สีเขียว") ในสตริงตัวระบุและเก็บดัชนีสูงสุด "สีแดง" เป็นครั้งแรกเสมอ anf find () ส่งคืน -1 สำหรับการจับคู่ที่ขาดหายไปดังนั้นจึงไม่มีตัวระบุสำหรับสีแดงโดยเฉพาะ

เมื่อสีเปลี่ยนเป็นคู่ (ดัชนีสี) เรียงลำดับอาร์เรย์ในรายการแรกของคู่แล้วละทิ้งรายการแรกของแต่ละคู่

Python 3 , 130 ไบต์

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

ลองออนไลน์!

C # (Visual C # Interactive คอมไพเลอร์) , 321 219 210 161 159 138 ไบต์

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

ลองออนไลน์!

-3 ไบต์ต้องขอบคุณ Shaggy, -18 ต้องขอบคุณ TheLethalCoder

รับอินพุตเป็น a List<string>ส่งคืน anIOrderedEnumerable<string>

วิธีการทำงานคือสั่งรายการตามดัชนีของสตริงแต่ละตัวในสตริงต้นฉบับ สตริงเดิมมีทุกสียกเว้นสีเทาที่หันไปเป็นตัวอักษรสามตัวแรก สีเทาไม่มีอยู่เนื่องจากสีเขียวและสีเทาอาจทำให้เกิดความกำกวม สีแดงไม่มีทั้งคู่เนื่องจากIndexOfส่งคืน -1 ถ้าสตริงไม่ปรากฏ

เวอร์ชันที่สั้นกว่าที่ใช้ IOrderedEnumerable เป็นอินพุต 137 ไบต์

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

ใช้ประโยชน์จากความจริงที่ว่าThenBy1 ไบต์สั้นกว่าOrderByแต่ThenByทำงานบนIOrderedEnumerables เท่านั้น

ลองออนไลน์!

ถ่าน , 69 68 63 56 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการสร้างรหัสเวอร์ชัน คำอธิบาย:

Ｆ⪪”E$↥l∧_∧K⁰ＲY⸿h⊕ψVG⌕gbＷ⟧⁼″5/²H✳<◨Ａ³?ω↗⊘‴⭆1”²

ใช้สตริงที่บีบอัดedyeeebrscckhrpeubivvifa99gohomaamrisiosazemuseypuwhpiorluและวนรอบแต่ละสตริงย่อยของความยาว 2

Φθ№κ⎇Σιlilι

สำหรับแต่ละสตริงย่อยพิมพ์สตริงอินพุตเหล่านั้นที่มีสตริงย่อยนั้นยกเว้นสตริงย่อยคือ99ซึ่งในกรณีนี้จะค้นหาlilแทน ( lilacเป็นสีเดียวที่ไม่ได้มีที่ไม่ซ้ำกัน substring ตัวอักษรสองตัว; oliveรวมถึงli; silverรวมilและblackรวมถึงlac. fawnและazureสามารถตรวจพบได้โดยใช้เพียงตัวอักษรเดียว แต่ที่ไม่ได้ช่วยที่นี่.)

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

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"อย่างไร