문제는 단어 목록을 정렬하는 프로그램을 만드는 것입니다. 단어가 임의의 주어진 알파벳 순서로되어 있어야합니다.

프로그램은 쉼표로 구분 된 문자열과 새로운 알파벳을 허용합니다.
프로그램은 새로운 정렬 순서로 모든 단어를 동일한 방식으로 출력합니다.

예:

입력:

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바꿉니다. 입력은 명령 행 인수를 통해 이루어집니다.

파이썬, 131

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

개선의 여지가 충분해야합니다.

자바 스크립트 (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"]

클로저, 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문자열과 같은 방식으로 정렬되지 않으며 쉼표를 인터리빙하는 데 많은 양의 코드가 필요 하다는 것을 알았습니다 .