Alfabetyczne liczby całkowite

Dla danego zestawu liczb ułóż je w kolejności alfabetycznej, gdy zostaną przeliterowane (tj. 1: jeden, 2: dwa, 90: dziewięćdziesiąt, 19: dziewiętnaście). Twój kod powinien działać dla zakresu [-999999, 999999]. Dane wyjściowe muszą mieć ogranicznik między liczbami. Spacja będzie działać, podobnie jak spacja i przecinek, jak pokazano w poniższych przykładach. Dane wejściowe mogą być tablicą liczb całkowitych, ciągiem liczb rozdzielanych lub w zależności od potrzeb. Zakłada się, że wszystkie liczby całkowite są unikalne.

Liczby nie są dzielone według celów tego wyzwania, a spacje są alfabetycznie przed innymi znakami. Przyjmuje się, że liczby ujemne są wyrażane za pomocą słowa minus. Na przykład fourpoprzedza, four thousanda liczba -40jest sortowana za pomocą łańcucha minus forty. Załóżmy, że wszystkie liczby będą się składać wyłącznie ze słów liczbowych i bez spójników (np. Użyj two thousand forty twozamiast two thousand and forty two).

Przypadki testowe

Liczby całkowite jednocyfrowe:

Wejście:

1, 2, 3, 4, 5

Wynik:

5, 4, 1, 3, 2

Wielocyfrowe liczby całkowite:

Wejście:

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

Wynik:

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

Odstępy między słowami, bez myślników, przecinków lub „i”:

Wejście:

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

Wynik:

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

Pamiętaj, to jest kodowanie w golfa , więc wygrywa kod z najmniejszą liczbą bajtów. Niedozwolone są luki!

JavaScript (ES6), 189 179 186 bajtów

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>

Podstawową ideą jest konwersja każdej liczby wejściowej na krótki ciąg znaków, który ma prawidłową pozycję leksykalną w porównaniu do wszystkich innych par ciągów liczbowych. Oto użyty słownik: (Nie uruchamiaj fragmentu; służy on tylko do ukrywania długiej listy).

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

Stwarza to bardzo zwięzły sposób przyporządkowania każdej liczby do jej poprawnej leksykograficznie pozycji. Tak właśnie qdziała funkcja rekurencyjna :

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]

Na 0początku łańcucha ma zapewnić, że np. 100 ( one hundredprzekonwertowane na PK0) zostanie posortowane przed 101( one hundred oneprzekonwertowane na PKP). Stwarza to dziwny scenariusz, w którym 0 ( zero) jest sortowane na początku tablicy, więc aby to obejść, w funkcji sortowania najpierw sortujemy zera za pomocą !x-!y||(....

Poinformuj 7, 214 201 118 bajtów

Inform 7 to absolutnie okropny język do gry w golfa, więc chciałem dać temu szansę.

Wcięcie powinno używać \tznaków tab ( ), ale HTML ich nie lubi. I odwrotnie, Inform nie lubi spacji dla wcięć, więc będziesz musiał zastąpić spacje tabulatorami, jeśli skopiujesz i wkleisz kod z tego miejsca, aby go przetestować. Lub po prostu skopiuj i wklej ze źródła Markdown.

Gra w golfa:

Do X:
    powtórz przez tabelę 1:
        teraz wpis Q to „[wpis R w słowach]”;
    sortuj tabelę 1 w kolejności Q;
    powiedz „[R w tabeli 1]”.

Dane wejściowe powinny być tabelą Inform, taką jak ( \tmiędzy kolumnami):

Tabela 1
R (liczba) Q (tekst)
-1002
5
435012
4
23
81
82

Wynik:

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

Ta funkcja jest uruchamiana raz w tabeli, dodając tekstową reprezentację każdej liczby w nowej kolumnie. Następnie sortuje wiersze tabeli zgodnie z kolumną tekstową; w Inform, ciągi są sortowane leksykograficznie. Na koniec drukuje oryginalną kolumnę w nowej kolejności. Dogodnie, „surowy, ale czasem użyteczny” format Inform 7 do drukowania kolumn tabeli okazuje się być oddzielony przecinkami, dokładnie zgodnie z żądaniem.

Nie golfowany, z płytą grzewczą pokazującą, jak wywołać funkcję:

Aby wydrukować liczby w kolejności alfabetycznej:
    powtórz w Tabeli liczb sortowalnych:
        teraz nazwa to „[wpis indeksu słownie]”;
    posortuj tabelę numerów sortowalnych według nazw;
    powiedz „[kolumna indeksu w tabeli liczb sortowalnych]”.

Tabela liczb do sortowania
indeks (numer) nazwa (tekst)
-1002
5
435012
4
23
81
82

Jest pokój.
Kiedy rozpocznie się gra: wydrukuj liczby w kolejności alfabetycznej.

Mathematica, 67 bajtów

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

Nienazwana funkcja przyjmująca listę liczb całkowitych jako argument i zwracająca listę liczb całkowitych jako wartość. #~IntegerName~"Words"jest wbudowanym, który zmienia liczbę całkowitą na nazwę w języku angielskim. IntegerNameczasami ma w przecinku przecinki i myślniki, więc StringReplacepołączenie się ich pozbywa. (Niestety, myślnik jest w rzeczywistości 3-bajtowym znakiem 8208 w UTF-8). Następnie SortBysortuje oryginalną listę alfabetycznie według wartości zmodyfikowanej nazwy całkowitej.

Niezły zbieg okoliczności: IntegerNameużywa negativezamiast minusw danych wyjściowych - ale żadne słowo pojawiające się w nazwach dowolnych dozwolonych liczb nie występuje alfabetycznie między tymi dwoma słowami, więc nie jest wymagana zamiana!

(Czapka dla ngenisis za przypomnienie mi Sortby.)

Bash + GNU utils + bsdgames, 52

• 4 bajty zapisane dzięki @izabera.

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

I / O to linie rozdzielane znakiem nowej linii.

• Pierwsze wyrażenie sed zastępuje każdą liczbę liczbową poleceniem powłoki, które wypisuje postać słowa liczby (podaną przez narzędzie bsdgamesnumber ), a :następnie następującą po niej postać liczbową liczby.
• To jest następnie sorted.
• Następnie drugie sedpaski prowadzą znaki do znaku włącznie :, pozostawiając postać numeryczną posortowaną według potrzeb.

numberpoprawnie obsługuje „minus”, a jego wynik jest wystarczająco zbliżony do określonego formatu, który sortdziała zgodnie z wymaganiami. Wyprowadza „czterdzieści cztery” zamiast „czterdzieści cztery”, ale z punktu widzenia sortowania nie powinno to mieć znaczenia.

Pakiet bsdgames może wymagać instalacji:

sudo apt-get install bsdgames

Narzędzia sedi sortprawie na pewno są już w twojej dystrybucji.

Python + odmiana, 97 91 89 bajtów

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

Wykorzystano inflectbibliotekę do przekształcenia wordstablicy liczb całkowitych w ich reprezentację fonetyczną / łańcuchową. Przechowywane w słowniku par k / v, gdzie klucze były reprezentacją liczbową, a wartości reprezentowały ciąg znaków. Zwrócono listę kluczy posortowaną według wartości.

EDYCJA: Zaoszczędź 5 i 3 bajty dzięki ETHproductions i Alex.S!

Mathematica, 30 bajtów

Poniższa odpowiedź generuje czystą funkcję, która pobierze listę liczb całkowitych jako dane wejściowe i posortuje je według nazwy alfabetycznej. Właśnie to, co zamówił lekarz;)

SortBy[#~IntegerName~"Words"&]

Oto wersja bez golfa:

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

A oto przykładowe użycie:

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

Które można również zapisać jako

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

Wytwarzają identyczne wyniki - w matematyce f[x]jest równoważne f@x.

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

Istnieje znacznie dłuższa odpowiedź, którą inny użytkownik opublikował w Mathematica. Ta odpowiedź próbuje poprawić niewielkie różnice między sposobem, w jaki matematyka alphebatuje liczby, aby lepiej dostosować się do sposobu, w jaki podane liczby OP powinny być alphebatowane, jednak rzeczy, dla których poprawiają, nie wpływają na porządek sortowania, a moja odpowiedź wychodzi identycznie do ich:

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

Common Lisp, 113 bajtów

Nie są potrzebne biblioteki zewnętrzne.

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

Wyjście, jeżeli xjest '(1 2 3 4 5):

(5 4 1 3 2)