Zor olan kelime listesini sıralayan bir program yapmak, sadece kelimelerin rastgele verilen bir alfabe sırasına göre yapılmasıdır.

Programınız bir dizi virgülle ayrılmış kelime ve yeni bir alfabe kabul edecektir.
Programınız her kelimeyi yeni sıralanmış sırada aynı şekilde çıkarır.

Misal:

Giriş:

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

Çıktı:

cat,green,home,network,egg,oval

Bu bir kod golf, kazanan en kısa programa sahip olan kişidir.

Bu benim ilk görevim, bu yüzden soru / zorluktaki herhangi bir gelişme takdir ediliyor.

CJam, 26 19 17 bayt

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

Çevrimiçi deneyin.

Test durumu

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

Nasıl çalışır

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 bayt

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

Çıktı:

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

Pyth , 19 karakter

j\,o_mx_zdNchczd\,

Ölçek:

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

Açıklama:

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

Esasen, dizgideki karakterlerin dizin listesinin bir anahtarıyla parçaları sıralar, ardından virgülle birleştirir. Ters kayıt işlemleri dizeyi tekrar ayırmaktan daha kısadır.

Yakut, 53 50 bayt

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

Sıralamadan önce trözel alfabeyi değiştirmek için Ruby'yi kullanıyorum a-z. Girdi, komut satırı argümanıyla yapılır.

Python, 131

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

İyileştirmek için bolca yer olmalı.

JavaScript (E6) 102119

'A' değişkenindeki alfabeye göre 'M' eşleme işleviyle sıralama Açılır pencereyi kullanarak G /
Ç ile

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 dize parametresi ile (test edilebilir) işlevi olarak dize dizisi döndürme (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 konsolunda test et

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

Çıktı

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

Clojure, 115 bayt

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

Vay canına, bu iyi başladı (sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))ama sonra ben vecdizeleri aynı şekilde sıralanmış almadım ve bu virgül araya ekleme de önemli miktarda kod alır.