Tantangannya adalah membuat program yang mengurutkan daftar kata-kata, hanya saja kata-katanya harus dalam urutan abjad acak yang diberikan.

Program Anda akan menerima serangkaian kata yang dipisahkan koma dan alfabet baru.
Program Anda akan menampilkan setiap kata dengan cara yang sama dalam urutan yang baru.

Contoh:

Memasukkan:

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

Keluaran:

cat,green,home,network,egg,oval

Ini adalah kode-golf , jadi pemenangnya adalah orang dengan program terpendek.

Ini adalah tantangan pertama saya sehingga setiap perbaikan pertanyaan / tantangan dihargai.

CJam, 26 19 17 byte

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

Cobalah online.

Kasus cobaan

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

Bagaimana itu bekerja

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 byte

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

Keluaran:

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

Pyth , 19 karakter

j\,o_mx_zdNchczd\,

Uji:

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

Penjelasan:

                            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(",")

Pada dasarnya, ini mengurutkan potongan, dengan kunci daftar indeks karakter dalam string, kemudian bergabung dengan mereka di koma. Bisnis pembalikan lebih pendek dari pemisahan string lagi.

Ruby, 53 50 byte

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

Saya menggunakan Ruby truntuk mengganti alfabet khusus a-zsebelum mengurutkan. Input melalui argumen baris perintah.

Python, 131

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

Seharusnya ada banyak ruang untuk perbaikan.

JavaScript (E6) 102 119

Sortir dengan fungsi pemetaan 'M' berdasarkan alfabet dalam variabel 'a'
Dengan IO menggunakan popup (prompt + lansiran)

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

Sebagai fungsi (dapat diuji) dengan parameter 1 string, mengembalikan array string (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))
)

Uji di konsol FireFox / FireBug

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

Keluaran

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

Clojure, 115 byte

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

Wow, ini dimulai dengan baik (sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))tetapi kemudian saya menyadari bahwa vectidak disortir dengan cara yang sama dengan string, dan interleaving koma-koma itu juga membutuhkan sejumlah kode.