정수를 알파벳순으로

주어진 숫자 집합에 대해 철자가 표시 될 때 알파벳 순서로 나열하십시오 (예 : 1 : 1, 2 : 2, 90 : 90, 19 : 19). 코드가 범위에서 작동해야합니다 [-999999, 999999]. 출력은 숫자 사이에 구분 기호가 있어야합니다. 아래 예에 표시된 것처럼 공백과 쉼표와 마찬가지로 공백이 작동합니다. 입력은 정수 배열, 구분 된 숫자의 문자열 또는 적합하다고 볼 수 있습니다. 모든 정수는 고유 한 것으로 가정합니다.

이 문제를 해결하기 위해 숫자는 하이픈으로 표시되지 않으며 다른 문자 앞에 공백이 사전 순으로 표시됩니다. 음수는 단어를 사용하여 표현 된 것으로 가정합니다 minus. 예를 들어, four선행 four thousand하고 숫자 -40는 문자열을 사용하여 정렬됩니다 minus forty. 모든 숫자는 숫자 단어로만 구성되고 연결은 없다고 가정합니다 (예 : two thousand forty two대신에 사용 two thousand and forty two).

테스트 사례

단일 숫자 정수 :

입력:

1, 2, 3, 4, 5

산출:

5, 4, 1, 3, 2

여러 자리 정수 :

입력:

-1002, 5, 435012, 4, 23, 81, 82

산출:

81, 82, 5, 4, 435012, -1002, 23

단어 사이에 공백이 있고 하이픈, 쉼표 또는 "and"는 없습니다.

입력:

6, 16, 60, 64, 600, 6000, 60000, 60004, 60008, 60204, 60804

산출:

6, 600, 6000, 16, 60, 64, 60000, 60008, 60804, 60004, 60204

이것은 code-golf 이므로 바이트 수가 가장 적은 코드가 이깁니다. 허점은 허용되지 않습니다!

자바 스크립트 (ES6), 189 179 186 바이트

let f =

a=>a.sort((x,y)=>!x-!y||(X=q(x),Y=q(y),X>Y)-(X<Y),q=n=>n<0?"L"+q(-n):n>999?q(n/1e3)+"Z"+q(n%1e3):n>99?q(n/100)+"K"+q(n%100):n>19?"  cYHFVSCO"[n/10|0]+q(n%10):"0PdaIGTQAMWDbXJEURBN"[n|0])

let g = a => console.log(`[${f(a)}]`)

g([1,2,3,4,5])
g([-1002,5,435012,4,23,81,82])
g([0,1000,1100])

<input id=I value="1 2 3 4 5"><button onclick="g(I.value.match(/\d+/g)||[])">Run</button>

기본 아이디어는 각 입력 숫자를 다른 모든 숫자 문자열 쌍과 비교하여 올바른 사전 위치에있는 짧은 문자열로 변환하는 것입니다. 사용 된 사전은 다음과 같습니다. (스 니펫을 실행하지 마십시오. 긴 목록을 숨기는 데 사용됩니다.)

A eight
B eighteen
C eighty
D eleven
E fifteen
F fifty
G five
H forty
I four
J fourteen
K hundred
L minus
M nine
N nineteen
O ninety
P one
Q seven
R seventeen
S seventy
T six
U sixteen
V sixty
W ten
X thirteen
Y thirty
Z thousand
a three
b twelve
c twenty
d two

이것은 각 숫자를 사 전적으로 정확한 위치에 매핑하는 매우 간결한 방법을 만듭니다. 이것이 재귀 q함수의 기능입니다.

q(-X)        => "L" + q(X)
q(XYYY)      => q(X) + "Z" + q(YYY)
q(XYY)       => q(X) + "K" + q(YY)
q(XY >= 20)` => "  cYHFVSCO"[X] + q(Y)
q(X)         => "0PdaIGTQAMWDbXJEURBN"[X]

0문자열의 시작 부분에서 100 (즉, 예를 보장하는 것입니다 one hundred,에 변환을 PK0하기 전에 정렬됩니다) 101( one hundred one로 변환 PKP). 이것은 zero배열의 앞면에 0 ( )이 정렬 되는 이상한 시나리오를 만들어 냅니다.이를 해결하기 위해 정렬 기능에서 먼저 오른쪽으로 0을 정렬합니다 !x-!y||(....

7 알리 214 201 118 바이트

Inform 7 은 골프에있어 절대적으로 끔찍한 언어이므로 여기에 기회를주고 싶었습니다.

들여 쓰기는 탭 ( \t) 문자를 사용해야 하지만 HTML은 그 문자를 좋아하지 않습니다. 반대로, Inform은 들여 쓰기를위한 공백을 좋아하지 않으므로 테스트를 위해 여기에서 코드를 복사하여 붙여 넣으면 공백을 탭으로 바꿔야합니다. 또는 마크 다운 소스에서 복사하여 붙여 넣기 만하면됩니다.

골프 :

X로 :
    표 1을 반복하십시오.
        이제 Q 항목은 "[R 항목 단어]";
    Q 순서로 표 1을 정렬하십시오.
    "[표 1의 R]"이라고 말합니다.

입력은 다음과 같이 정보 테이블이어야합니다 ( \t열 사이).

1 번 테이블
R (숫자) Q (텍스트)
-1002
5
435012
4
23
81
82

산출:

81, 82, 5, 4, 435012, -1002, 23

이 함수는 테이블을 한 번 실행하여 새 열에 각 숫자의 텍스트 표현을 추가합니다. 그런 다음 텍스트 열에 따라 테이블 행을 정렬합니다. Inform에서 문자열은 사전 식으로 정렬됩니다. 마지막으로 원본 열을 새로운 순서로 인쇄합니다. 편리하게도 테이블 열을 인쇄하기 위해 Inform 7의 "조잡하지만 때로는 유용한" 형식은 요청한대로 쉼표로 구분됩니다.

기능을 호출하는 방법을 보여주는 상용구가있는 언 골프 드 :

알파벳 순서로 숫자를 인쇄하려면 :
    정렬 가능한 숫자 표를 반복하십시오.
        이제 이름 항목은 "[색인 항목 (단어)]"입니다.
    정렬 가능한 숫자 표를 이름 순서대로 정렬하십시오.
    "[정렬 가능한 숫자 표의 색인 열]"이라고 말합니다.

정렬 가능한 숫자 표
색인 (번호) 이름 (텍스트)
-1002
5
435012
4
23
81
82

방이 있습니다.
재생이 시작될 때 : 알파벳 순서로 숫자를 인쇄하십시오.

수학, 67 바이트

SortBy[#,#~IntegerName~"Words"~StringReplace~{","->"","-"->""}&]&

명명되지 않은 함수는 인수로 정수 목록을 가져 와서 정수 목록을 값으로 리턴합니다. #~IntegerName~"Words"정수는 영어로 이름을 변경하는 내장입니다. IntegerName때로는 출력에 쉼표와 하이픈이 있으므로 StringReplace호출에서 제거됩니다. (하이픈은 실제로 UTF-8의 3 바이트 문자 인 8208입니다.) 그런 다음 SortBy수정 된 정수 이름 값에 따라 알파벳순으로 원래 목록을 정렬합니다.

좋은 우연의 일치 : 출력 대신에 IntegerName사용 하지만 허용되는 숫자의 이름에 나타나는 단어는 두 단어 사이에 알파벳순으로 표시되지 않으므로 대체 할 필요가 없습니다!negativeminus

(나를 상기시키기 위해 ngenisis에 대한 팁이 Sortby있습니다.)

배쉬 + GNU 유틸리티 + bsdgames, 52

• @izabera 덕분에 4 바이트가 절약되었습니다.

sed 's/.*/echo `echo &|number`:&/e'|sort|sed s/.*://

I / O는 줄 바꿈으로 구분 된 줄입니다.

• 첫 번째 sed 표현식은 각 숫자를 bsdgamesnumber 유틸리티에서 제공 한 숫자 형식의 단어를 출력하는 쉘 명령으로 대체 한 :다음 숫자의 숫자 형식을 대체 합니다 .
• 그런 다음 sorted입니다.
• 그런 다음 두 번째 sed문자는을 포함하여 앞의 문자를 제거 :하고 숫자 형식은 필요에 따라 정렬합니다.

number"빼기"를 올바르게 처리하고 출력은 sort필요한대로 작동 하는 특정 형식에 충분히 가깝습니다 . "fourty four"대신 "fourtyfour"를 출력하지만 정렬 관점에서는 중요하지 않습니다.

bsdgames 패키지는 설치가 필요할 수 있습니다 :

sudo apt-get install bsdgames

sed및 sort유틸리티는 배포판에 이미 거의 확실하다.

파이썬 + 활용, 97 91 89 바이트

from inflect import*
a={x:engine().number_to_words(x)for x in words}
sorted(a,key=a.get)

inflect라이브러리를 사용하여 words정수 배열을 음성 / 문자열 표현으로 변환했습니다 . 키가 숫자 표현이고 값이 문자열 표현 인 k / v 쌍의 사전에 저장됩니다. 키 목록을 값별로 정렬하여 반환했습니다.

편집 : ETHproductions와 Alex.S 덕분에 5 바이트와 3 바이트를 절약했습니다!

Mathematica, 30 바이트

아래의 답변은 정수 목록을 입력으로 받아 알파벳 이름으로 정렬하는 순수한 함수를 출력합니다. 의사가 주문한 것;)

SortBy[#~IntegerName~"Words"&]

ungolfed 버전은 다음과 같습니다.

SortBy[IntegerName[#, "Words"]&]

다음은 사용법 예입니다.

SortBy[#~IntegerName~"Words"&][{0,1,2,3,4,5,6,7,8,9,10}]

어느 것으로도 쓸 수 있습니다

SortBy[#~IntegerName~"Words"&]@{0,1,2,3,4,5,6,7,8,9,10}

그들은 동일한 출력을 생성 - 티카에 f[x]에 equivilant이다 f@x.

Outputs: {8, 5, 4, 9, 1, 7, 6, 10, 3, 2}

다른 사용자가 Mathematica에 게시 한 답변이 훨씬 더 길었습니다. 이 답변은 수학이 숫자를 알펜 화하는 방법과 OP가 명시한 숫자가 알펜 화되는 방법을 더 잘 준수하는 방법 사이의 약간의 차이점을 수정하려고 시도하지만, 수정 된 것은 정렬 순서에 영향을 미치지 않으며 내 답변은 결과와 동일합니다.

MyF = SortBy[#~IntegerName~"Words"&];
TheirF = SortBy[#, #~IntegerName~"Words"~ StringReplace~{"," -> "", "-" -> ""} &] &;
MyF[Range[-999999, 999999]] == TheirF[Range[-999999, 999999]]
(*Outputs True*)

공통 리스프, 113 바이트

외부 라이브러리가 필요하지 않습니다.

(print(mapcar #'cdr(sort(loop for i in x collect(cons(format()"~r"i)i))(lambda(y z)(string-lessp(car y)(car z))))))

출력 경우 x입니다 '(1 2 3 4 5):

(5 4 1 3 2)