Завдання полягає в тому, щоб скласти програму, яка сортує список слів, лише щоб слова були у порядку випадкового заданого алфавіту.

Ваша програма прийме рядок розділених комами слів і новий алфавіт.
Ваша програма буде виводити кожне слово однаково в новому відсортованому порядку.

Приклад:

Вхід:

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

По суті, він сортує фрагменти за допомогою ключа списку індексів символів у рядку, а потім приєднує їх до коми. Повернення бізнесу коротше, ніж знову розбиття рядка.

Рубі, 53 50 байт

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

Я використовую Ruby trдля заміни користувацького алфавіту a-zперед сортуванням. Введення здійснюється через аргумент командного рядка.

Пітона, 131

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

Повинно бути багато можливостей для вдосконалення.

JavaScript (E6) 102 119

Сортувати за допомогою функції відображення "M" на основі алфавіту в змінній "a"
З 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що не сортують так само, як рядки, і переплетення цих коми також займає значну кількість коду.