課題は、単語のリストを並べ替えるプログラムを作成することです。単語がランダムに与えられたアルファベットの順序である必要があるだけです。

プログラムは、コンマ区切りの文字列と新しいアルファベットを受け入れます。
プログラムは、すべての単語を同じ方法で新しいソート順に出力します。

例：

入力：

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

出力：

cat,green,home,network,egg,oval

これはコードゴルフですので、勝者は最短のプログラムを持つ人です。

これは私の最初の課題ですので、質問/チャレンジの改善はありがたいです。

CJam、26 19 17バイト

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

オンラインでお試しください。

テストケース

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

使い方

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バイト

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

出力：

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

バース、19文字

j\,o_mx_zdNchczd\,

テスト：

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

説明：

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

基本的に、文字列内の文字のインデックスのリストのキーを使用してチャンクを並べ替え、コンマで結合します。反転ビジネスは、文字列を再度分割するよりも短いです。

Ruby、53 50バイト

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

Rubyを使用trして、a-z並べ替え前にカスタムアルファベットを置き換えています。入力はコマンドライン引数を介して行われます。

Python、131

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

改善の余地は十分あるはずです。

JavaScript（E6）102119

変数「a」のアルファベットに基づいて、マッピング関数「M」でソートします
ます。ポップアップを使用してIOを使用します（プロンプト+アラート）

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つの文字列パラメータを持つ（テスト可能な）関数として、文字列配列を返します（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コンソールで

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

出力

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

Clojure、115バイト

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

うわー、これは最初からうまくいきました(sort-by(fn[w](mapv(zipmap(sort %2)%2)w)))が、その後vec、文字列と同じ方法で並べ替えられないことに気付きました。これらのコンマをインターリーブすると、かなりの量のコードが必要になります。