Ganzzahlen alphabetisieren

Ordnen Sie die Zahlen für einen bestimmten Satz in alphabetischer Reihenfolge zu, wenn sie buchstabiert sind (z. B. 1: eins, 2: zwei, 90: neunzig, 19: neunzehn). Ihr Code sollte für den Bereich funktionieren[-999999, 999999] . Die Ausgabe muss ein Trennzeichen zwischen den Zahlen enthalten. Ein Leerzeichen funktioniert genauso wie ein Leerzeichen und ein Komma, wie in den folgenden Beispielen gezeigt. Die Eingabe kann ein Array von Ganzzahlen sein, eine Zeichenfolge von durch Trennzeichen getrennten Zahlen, oder wie Sie es für richtig halten. Es wird angenommen, dass alle Ganzzahlen eindeutig sind.

Zahlen werden für diese Herausforderung nicht mit Bindestrich getrennt und Leerzeichen werden vor anderen Zeichen in alphabetischer Reihenfolge angezeigt. Es wird angenommen, dass negative Zahlen mit dem Wort ausgedrückt werden minus. Beispielsweise fourwürde vorausgehen four thousandund die Nummer -40würde anhand der Zeichenfolge sortiert werden minus forty. Angenommen, alle Zahlen bestehen ausschließlich aus Zahlenwörtern und keinen Konjunktionen (z. B. Verwendung two thousand forty twoanstelle von two thousand and forty two).

Testfälle

Einstellige ganze Zahlen:

Eingang:

1, 2, 3, 4, 5

Ausgabe:

5, 4, 1, 3, 2

Mehrstellige Ganzzahlen:

Eingang:

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

Ausgabe:

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

Leerzeichen zwischen Wörtern, keine Bindestriche, Kommas oder "und":

Eingang:

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

Ausgabe:

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

Denken Sie daran, das ist Code-Golf , also gewinnt der Code mit den wenigsten Bytes. Keine Lücken erlaubt!

JavaScript (ES6), 189 179 186 Bytes

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>

Die Grundidee besteht darin, jede eingegebene Zahl in eine kurze Zeichenfolge umzuwandeln, die sich im Vergleich zu allen anderen Zahlen-Zeichenfolgen-Paaren an der richtigen lexografischen Position befindet. Hier ist das verwendete Wörterbuch: (Führen Sie das Snippet nicht aus; es dient nur zum Ausblenden der langen Liste.)

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

Dies schafft eine sehr präzise Möglichkeit, jede Zahl ihrer lexographisch korrekten Position zuzuordnen. Das macht die rekursive qFunktion:

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]

Das 0am Anfang der Zeichenkette soll sicherstellen, dass zB 100 ( one hundred, umgerechnet auf PK0) vor 101( one hundred one, umgerechnet auf PKP) sortiert wird . Dies erzeugt ein seltsames Szenario, in dem 0 ( zero) an der Vorderseite des Arrays sortiert ist. Um dies zu umgehen, sortieren wir in der Sortierfunktion zuerst alle Nullen nach rechts mit !x-!y||(....

Informieren Sie 7, 214 201 118 Bytes

Inform 7 ist eine absolut schreckliche Sprache fürs Golfen, deshalb wollte ich es hier mal probieren.

Einrückung sollte Tabulatorzeichen ( \t) verwenden, HTML mag diese jedoch nicht. Umgekehrt mag Inform keine Leerzeichen für Einrückungen, daher müssen Sie die Leerzeichen durch Tabulatoren ersetzen, wenn Sie den Code von hier kopieren und einfügen, um ihn zu testen. Oder kopieren Sie sie einfach aus der Markdown-Quelle.

Golf gespielt:

Zu X:
    Wiederholen Sie durch Tabelle 1:
        jetzt ist Q entry "[R entry in words]";
    sortiere Tabelle 1 in Q-Reihenfolge;
    sagen Sie "[R in Tabelle 1]".

Die Eingabe sollte wie folgt in einer Inform-Tabelle erfolgen ( \tzwischen den Spalten):

Tabelle 1
R (Nummer) Q (Text)
-1002
5
435012
4
23
81
82

Ausgabe:

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

Diese Funktion durchläuft die Tabelle einmal und fügt eine Textdarstellung jeder Zahl in einer neuen Spalte hinzu. Anschließend werden die Tabellenzeilen entsprechend der Textspalte sortiert. In Inform werden Zeichenfolgen lexikografisch sortiert. Schließlich wird die ursprüngliche Spalte in der neuen Reihenfolge ausgedruckt. Praktischerweise stellt sich heraus, dass Inform 7s "rohes, aber manchmal nützliches" Format zum Ausdrucken von Tabellenspalten genau wie gewünscht durch Kommas getrennt ist.

Ungolfed, mit einem Kesselschild, das zeigt, wie die Funktion aufgerufen wird:

So drucken Sie die Zahlen in alphabetischer Reihenfolge:
    Wiederholen Sie die Tabelle der sortierbaren Zahlen:
        jetzt lautet der Namenseintrag "[der Indexeintrag in Worten]";
    sortiere die Tabelle der sortierbaren Zahlen in der Reihenfolge ihrer Namen;
    Sagen Sie "[die Indexspalte in der Tabelle der sortierbaren Zahlen]".

Tabelle der sortierbaren Zahlen
Index (Nummer) Name (Text)
-1002
5
435012
4
23
81
82

Es gibt ein Zimmer.
Bei Spielbeginn: Zahlen in alphabetischer Reihenfolge ausdrucken.

Mathematica, 67 Bytes

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

Unbenannte Funktion, die eine Liste von Ganzzahlen als Argument verwendet und eine Liste von Ganzzahlen als Wert zurückgibt. #~IntegerName~"Words"ist eine integrierte Funktion, die eine Ganzzahl in ihren Namen in Englisch ändert. IntegerNameManchmal enthält die Ausgabe Kommas und Bindestriche, sodass der StringReplaceAufruf diese entfernt. (Leider ist der Bindestrich tatsächlich das 3-Byte-Zeichen 8208 in UTF-8.) Anschließend wird SortBydie ursprüngliche Liste alphabetisch nach dem Wert des geänderten Ganzzahlnamens sortiert.

Ein schöner Zufall: IntegerNameverwendet negativeanstelle von minusin seiner Ausgabe - aber kein Wort, das in den Namen einer der zulässigen Zahlen vorkommt, ist alphabetisch zwischen diesen beiden Wörtern, sodass kein Ersatz erforderlich ist!

(Hutspitze an Genisis, weil sie mich daran erinnert hat Sortby .)

Bash + GNU utils + bsdgames, 52

• 4 Bytes gespart dank @izabera.

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

E / A sind Zeilen mit Zeilenumbrüchen.

• Der erste sed-Ausdruck ersetzt jede numerische Zahl durch einen Shell-Befehl, der die Wortform der Zahl ausgibt (wie vom Dienstprogramm bsdgames angegebennumber ), gefolgt von :der numerischen Form der Zahl.
• Das ist dann sort ed.
• Der zweite sedStreifen führt die Zeichen bis einschließlich zu und :lässt die numerische Form nach Bedarf sortiert.

number behandelt "minus" richtig und seine Ausgabe ist nahe genug an dem angegebenen Format, das das sort wie erforderlich funktioniert. Es wird "vierundvierzig" anstelle von "vierundvierzig" ausgegeben, aber dies sollte aus Sicht der Sortierung keine Rolle spielen.

Das bsdgames-Paket muss möglicherweise installiert werden:

sudo apt-get install bsdgames

Die sedund sortDienstprogramme sind mit ziemlicher Sicherheit bereits in Ihrer Distribution.

Python + Flex, 97 91 89 Bytes

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

Verwendete die inflectBibliothek, um das wordsArray von Ganzzahlen in ihre phonetische / Zeichenfolgendarstellung umzuwandeln . In einem Wörterbuch mit k / v-Paaren gespeichert, wobei die Tasten die numerische Darstellung und die Werte die Zeichenfolgendarstellung waren. Gibt die Liste der Schlüssel sortiert nach Werten zurück.

EDIT: 5 und 3 Bytes gespart, dank ETHproductions und Alex.S!

Mathematica, 30 Bytes

Die Antwort unten gibt eine reine Funktion aus, die eine Liste von Ganzzahlen als Eingabe verwendet und diese nach ihrem alphabetischen Namen sortiert. Genau das, was der Arzt bestellt hat;)

SortBy[#~IntegerName~"Words"&]

Hier ist die ungolfed Version:

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

Und hier ist ein Anwendungsbeispiel:

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

Welches könnte auch als geschrieben werden

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

Sie erzeugen identische Ergebnisse - in Mathematica f[x]ist dies gleichbedeutend mit f@x.

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

Es gibt eine viel längere Antwort, die ein anderer Benutzer in Mathematica gepostet hat. Diese Antwort versucht, einige kleine Unterschiede zwischen der Art und Weise zu korrigieren, wie mathematica Zahlen alphebatisiert, um sie besser an die Art und Weise anzupassen, in der die vom OP angegebenen Zahlen alphebatisiert werden sollten.

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

Common Lisp, 113 Bytes

Keine externen Bibliotheken erforderlich.

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

Ausgabe wenn xist '(1 2 3 4 5):

(5 4 1 3 2)