Буквені літери

Для заданого набору чисел поставте їх в алфавітному порядку, коли вони прописані (тобто 1: один, 2: два, 90: дев'яносто, 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

Пробіли між словами, без дефісів, коми або "і":

Вхід:

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

Вихід:

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

Пам'ятайте, що це код-гольф , тому виграє код з найменшими байтами. Не допускаються лазівки!

JavaScript (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). Це створює дивний сценарій, коли 0 ( zero) сортується на передню частину масиву, тому, щоб обійти це, у функції сортування ми спочатку сортуємо будь-які нулі праворуч !x-!y||(....

Інформуйте 7, 214 201 118 байт

Інформ 7 - це абсолютно жахлива мова для гольфу, тому я хотів дати тут шанс.

Для відступу слід використовувати \tсимволи табуляції ( ), але HTML не подобається. І навпаки, Inform не любить пробілів для відступів, тому вам доведеться замінити пробіли на вкладки, якщо ви скопіюєте і вставте код звідси, щоб перевірити його. Або просто скопіюйте вставити замість цього джерела Markdown.

Гольф:

До X:
    повторити таблицю 1:
        тепер запис Q - це "[R запис словами]";
    сортувати таблицю 1 у порядку Q;
    скажіть "[R у таблиці 1]".

Введення має бути таблицею Inform, як-от так (з \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дзвінок позбавляється від них. (На жаль, дефіс насправді є 3-байтовим символом, 8208, в UTF-8.) Потім SortByсортує оригінальний список в алфавітному порядку відповідно до значення модифікованого цілого імені.

Гарний збіг обставин: IntegerNameвикористовує negativeзамість minusсвого виводу, але жодне слово, яке відображається в назвах будь-якого із дозволених чисел, не знаходиться в алфавітному порядку між цими двома словами, тому заміна не потрібна!

(Наконечник капелюха до ngenisis, щоб нагадати мені Sortby.)

Утиліти Bash + GNU + bsdgames, 52

• 4 байти збережено завдяки @izabera.

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

Введення / виведення - це лінії з обмеженою лінією.

• Перший вираз sed замінює кожне числове число командою оболонки, яка виводить слово форму числа (як задано bsdgamesnumber утилітою ), а :потім числовою формою числа.
• Це тоді sort редакція.
• Потім друга sedсмужка провідних символів до і включаючи :, залишаючи числову форму відсортованою, як потрібно.

number правильно обробляє "мінус", і його вихід досить близький до визначеного формату, що sort працює як потрібно. Він виводить "чотиридцять чотири" замість "чотиридесят чотири", але це не має значення з точки зору сортування.

У пакеті bsdgames може знадобитися установка:

sudo apt-get install bsdgames

sedІ sortутиліти майже напевно вже в вашому дистрибутиві.

Python + inflect, 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, де ключі були числовим представленням, а значеннями були рядкове подання. Повертає список клавіш, відсортованих за значеннями.

EDIT: Збережено 5 та 3 байти, завдяки ETHproductions та Alex.S!

Математика, 30 байт

Відповідь нижче видає чисту функцію, яка візьме список цілих чисел як вхідний і сортує їх за алфавітним іменем. Якраз те, що призначив лікар;)

SortBy[#~IntegerName~"Words"&]

Ось незворушена версія:

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]це рівнозначно f@x.

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

Є набагато довша відповідь, що інший користувач розмістив у Mathematica. Ця відповідь намагається виправити деякі невеликі відмінності між тим, як математика переносить числа, щоб вони краще відповідали тому, як заявлені в ОП числа повинні бути альфабізовані, однак те, для чого вони виправлені, не впливає на порядок сортування, і моя відповідь виводиться однаково їх.

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)