ความท้าทายคือการจัดทำโปรแกรมที่เรียงลำดับรายการคำศัพท์เฉพาะที่จำเป็นต้องเรียงตามลำดับตัวอักษรแบบสุ่ม

โปรแกรมของคุณจะยอมรับสตริงของคำที่คั่นด้วยเครื่องหมายจุลภาคและตัวอักษรใหม่
โปรแกรมของคุณจะแสดงผลทุกคำด้วยวิธีเดียวกันในลำดับที่เรียงลำดับใหม่

ตัวอย่าง:

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

home,oval,cat,egg,network,green bcdfghijklmnpqrstvwxzaeiouy

เอาท์พุท:

cat,green,home,network,egg,oval

มันคือ รหัสกอล์ฟดังนั้นผู้ชนะคือบุคคลที่มีโปรแกรมสั้นที่สุด

นี่เป็นความท้าทายครั้งแรกของฉันดังนั้นการปรับปรุงคำถาม / ความท้าทายจะได้รับการชื่นชม

CJam, 26 19 17 ไบต์

rr:A;',/{Af#}$',*

ลองออนไลน์

กรณีทดสอบ

$ cjam sort.cjam <<< 'home,oval,cat,egg,network,green bcdfghjklmnpqrstvwxzaeiouy'
cat,green,home,network,egg,oval

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

rr                    " Read two whitespace-separated tokens from STDIN. ";
  :A;                 " Save the second token (the alphabet) in A.       ";
     ',/              " Split the remaining token at commas.             ";
        {Af#}$        " Sort by the chunks' characters' indexes in A.    ";
               ',*    " Join, separating by commas.                      ";

Bash + coreutils, 37 ไบต์

tr ,$2 \\na-z<<<$1|sort|tr \\na-z ,$2

เอาท์พุท:

$ ./alphasort.sh home,oval,cat,egg,network,green bcdfghijklmnpqrstvwxyzaeiouy
cat,green,home,network,egg,oval, $ 

Pyth , 19 ตัวละคร

j\,o_mx_zdNchczd\,

ทดสอบ:

$ pyth -c "j\,o_mx_zdNchczd\," <<< 'home,oval,cat,egg,network,green bcdfghjklmnpqrstvwxzaeiouy'
cat,green,home,network,egg,oval

คำอธิบาย:

                            Implicit: d=" "
                            Implicit: z=input()
j\,                         ",".join(
   o                                 order_by(lambda N:
    _                                                  rev(
     m                                                     map(lambda d:
      x_zd                                                              rev(z).index(d),
      N                                                                 N),
    chczd\,                                            z.split(" "[0].split(",")

โดยพื้นฐานแล้วมันจะเรียงลำดับชิ้นด้วยคีย์ของรายการดัชนีของอักขระในสตริงจากนั้นรวมเข้ากับคอมมา ธุรกิจการกลับรายการสั้นกว่าการแยกสตริงอีกครั้ง

Ruby, 53 50 ไบต์

a,b=$*
$><<a.split(?,).sort_by{|w|w.tr b,'a-z'}*?,

ฉันใช้ Ruby's trเพื่อแทนที่ตัวอักษรที่กำหนดเองด้วยa-zก่อนการเรียงลำดับ การป้อนข้อมูลผ่านอาร์กิวเมนต์บรรทัดคำสั่ง

Python, 131

w,a=input().split()
print(",".join(sorted(w.split(","),key=lambda s:"".join(["abcdefghijklmnopqrstuvwxyz"[a.find(c)]for c in s]))))

ควรมีพื้นที่เหลือเฟือสำหรับการปรับปรุง

JavaScript (E6) 102 119

จัดเรียงด้วยฟังก์ชันการแมป 'M' ตามตัวอักษรในตัวแปร 'a'
ด้วย IO โดยใช้ป๊อปอัพ (พร้อมท์ + การแจ้งเตือน)

x=prompt().split(/[ ,]/),
a=x.pop(),
M=w=>[10+a.search(c)for(c of w)]+'',
alert(x.sort((a,b)=>M(a)>M(b)))

ในฐานะที่เป็นฟังก์ชั่น (ทดสอบได้) กับพารามิเตอร์สตริง 1 ส่งคืนอาร์เรย์สตริง (92)

F=x=>(
  M=w=>[10+a.search(c)for(c of w)],
  x=x.split(/[ ,]/),
  a=x.pop(),
  x.sort((a,b)=>M(a)>M(b))
)

ทดสอบในคอนโซล FireFox / FireBug

F('home,oval,cat,egg,network,green zyxwvtsrqpnmlkjhgfdcbaeiou')

เอาท์พุต

["network", "home", "green", "cat", "egg", "oval"]

Clojure 115 ไบต์

#(apply str(butlast(interleave(sort-by(fn[w](apply str(map(zipmap(sort %2)%2)w)))(re-seq #"[a-z]+"%))(repeat \,))))

ว้าวนี่เริ่มต้นได้ดีด้วย(sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))แต่แล้วฉันก็รู้vecว่าไม่ได้เรียงแบบเดียวกับสตริงและการคอมไพล์การคอมไพล์เหล่านั้นก็ใช้โค้ดจำนวนมาก