Die Herausforderung besteht darin, ein Programm zu erstellen, das eine Liste von Wörtern sortiert, nur dass die Wörter in der Reihenfolge eines zufällig gegebenen Alphabets sein müssen.

Ihr Programm akzeptiert eine durch Kommas getrennte Zeichenfolge und ein neues Alphabet.
Ihr Programm gibt jedes Wort auf die gleiche Weise in der neuen sortierten Reihenfolge aus.

Beispiel:

Eingang:

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

Ausgabe:

cat,green,home,network,egg,oval

Dies ist ein Code-Golf , der Gewinner ist also die Person mit dem kürzesten Programm.

Dies ist meine erste Herausforderung, daher sind Verbesserungen der Frage / Herausforderung willkommen.

CJam, 26 19 17 Bytes

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

Probieren Sie es online aus.

Testfall

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

Wie es funktioniert

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 Bytes

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

Ausgabe:

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

Pyth , 19 Zeichen

j\,o_mx_zdNchczd\,

Prüfung:

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

Erläuterung:

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

Im Wesentlichen werden die Chunks mit einem Schlüssel aus der Liste der Indizes der Zeichen in der Zeichenfolge sortiert und dann durch Kommas verbunden. Das Umkehrgeschäft ist kürzer als das erneute Teilen der Zeichenfolge.

Ruby, 53 50 Bytes

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

Ich verwende Ruby's tr, um das benutzerdefinierte Alphabet a-zvor dem Sortieren durch zu ersetzen . Die Eingabe erfolgt über ein Befehlszeilenargument.

Python, 131

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

Es sollte viel Raum für Verbesserungen geben.

JavaScript (E6) 102 119

Sortieren Sie mit einer Zuordnungsfunktion 'M' basierend auf dem Alphabet in der Variablen 'a'.
Mit E / A über Popup (Eingabeaufforderung + Warnung)

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

Als (testbare) Funktion mit 1 String-Parameter wird ein String-Array (92) zurückgegeben.

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

Test In FireFox / Firebug - Konsole

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

Ausgabe

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

Clojure, 115 Bytes

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

Wow, das hat gut angefangen, (sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))aber dann wurde mir klar, dass veces nicht wie Strings sortiert wird, und das Verschachteln dieser Kommas erfordert auch eine erhebliche Menge an Code.