Le défi est de créer un programme qui trie une liste de mots, mais seulement que les mots doivent être dans l'ordre d'un alphabet donné au hasard.

Votre programme acceptera une chaîne de mots séparés par des virgules et un nouvel alphabet.
Votre programme affichera chaque mot de la même manière dans le nouvel ordre trié.

Exemple:

Contribution:

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

Production:

cat,green,home,network,egg,oval

Il s'agit d'un code-golf , donc le gagnant est la personne avec le programme le plus court.

Ceci est mon premier défi, donc toute amélioration de la question / défi est appréciée.

CJam, 26 19 17 octets

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

Essayez-le en ligne.

Cas de test

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

Comment ça fonctionne

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 octets

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

Production:

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

Pyth , 19 caractères

j\,o_mx_zdNchczd\,

Tester:

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

Explication:

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

Essentiellement, il trie les morceaux, avec une clé de la liste des index des caractères de la chaîne, puis les joint par des virgules. Les opérations de retournement sont plus courtes que de diviser à nouveau la chaîne.

Rubis, 53 50 octets

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

J'utilise Ruby trpour remplacer l'alphabet personnalisé a-zavant de trier. L'entrée se fait via un argument de ligne de commande.

Python, 131

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

Il devrait y avoir beaucoup de place pour l'amélioration.

JavaScript (E6) 102 119

Trier avec une fonction de cartographie 'M' basée sur l'alphabet dans la variable 'a'
Avec IO en utilisant popup (invite + alerte)

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

En tant que fonction (testable) avec 1 paramètre de chaîne, renvoyant un tableau de chaînes (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))
)

Test dans la console FireFox / FireBug

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

Production

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

Clojure, 115 octets

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

Wow, cela a bien commencé, (sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))mais j'ai réalisé que je vecne suis pas trié de la même manière que les chaînes, et l'entrelacement de ces virgules nécessite également une quantité importante de code.