Wyzwanie polega na stworzeniu programu, który sortuje listę słów, tyle że słowa muszą być w kolejności losowego danego alfabetu.

Twój program zaakceptuje ciąg słów oddzielonych przecinkami i nowy alfabet.
Twój program wyświetli każde słowo w ten sam sposób w nowej posortowanej kolejności.

Przykład:

Wejście:

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

Wynik:

cat,green,home,network,egg,oval

To jest golf-golf, więc zwycięzcą jest osoba z najkrótszym programem.

To jest moje pierwsze wyzwanie, dlatego doceniam wszelkie ulepszenia pytania / wyzwania.

CJam, 26 19 17 bajtów

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

Wypróbuj online.

Przypadek testowy

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

Jak to działa

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 bajtów

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

Wynik:

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

Pyth , 19 znaków

j\,o_mx_zdNchczd\,

Test:

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

Wyjaśnienie:

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

Zasadniczo sortuje fragmenty za pomocą klucza listy indeksów znaków w ciągu, a następnie łączy je przecinkami. Transakcje odwracania są krótsze niż ponowne dzielenie łańcucha.

Rubin, 53 50 bajtów

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

Używam Ruby trdo zastąpienia niestandardowego alfabetu a-zprzed sortowaniem. Dane wprowadzane są za pomocą argumentu wiersza poleceń.

Python, 131

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

Powinno być dużo miejsca na ulepszenia.

JavaScript (E6) 102 119

Sortuj za pomocą funkcji mapowania „M” na podstawie alfabetu w zmiennej „a”
Z IO za pomocą wyskakującego okienka (monit + alert)

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

Jako funkcja (testowalna) z 1 parametrem łańcucha, zwracająca tablicę łańcucha (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))
)

Testuj w konsoli FireFox / FireBug

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

Wynik

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

Clojure, 115 bajtów

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

Wow, zaczęło się to dobrze, (sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))ale potem zdałem sobie sprawę, vecże nie sortuję się w taki sam sposób jak ciągi, a przeplatanie tych przecinków wymaga również znacznej ilości kodu.