Задача состоит в том, чтобы составить программу, которая сортирует список слов, только для того, чтобы слова были в порядке случайного заданного алфавита.

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

Пример:

Входные данные:

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, $ 

Pyth , 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перед сортировкой. Ввод осуществляется через аргумент командной строки.

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

Сортировка с помощью функции отображения 'M' на основе алфавита в переменной 'a'
С помощью ввода-вывода с использованием всплывающего окна (приглашение + предупреждение)

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что не сортируются так же, как строки, и чередование этих запятых также требует значительного количества кода.