字母整数

对于给定的一组数字，将其拼写时按字母顺序排列（即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

单词之间的空格，不能使用连字符，逗号或“和”：

输入：

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

输出：

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

请记住，这是code-golf，所以字节最少的代码将获胜。不允许有漏洞！

的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字节

Inform 7是打高尔夫球的绝对糟糕的语言，所以我想在这里给它机会。

缩进应使用制表符（\t），但HTML不喜欢这些字符。相反，Inform不喜欢缩进的空间，因此，如果从此处复制粘贴代码进行测试，则必须用制表符替换空格。或者只是从Markdown来源复制粘贴。

打高尔夫球：

到X：
    重复表1：
        现在，Q条目是“ [R单词的条目]”；
    以Q顺序对表1进行排序；
    说“ [表1中的R]”。

输入应该是一个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

有一个房间。
播放开始时：按字母顺序打印数字。

Mathematica，67个字节

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

未命名函数，将整数列表作为其参数，并返回整数列表作为其值。#~IntegerName~"Words"是内置的，可将整数更改为其英文名称。IntegerName有时在其输出中包含逗号和连字符，因此该StringReplace调用摆脱了这些。（遗憾的是，连字符实际上是UTF-8中的3字节字符8208。）然后SortBy根据修改后的整数名称的值，按字母顺序对原始列表进行排序。

一个很好的巧合：IntegerName使用negative而不是minus在其输出中使用-但是在这两个单词之间的字母顺序中没有出现在任何允许的数字名称中的单词，因此不需要替换！

（致妮吉特的提示让我想起了Sortby。）

Bash + GNU utils + bsdgames，52

• @izabera节省了4个字节。

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

I / O是换行符分隔的行。

• 第一个sed表达式用一个shell命令替换每个数字，该命令输出数字的单词形式（由bsdgamesnumber实用程序给出），:然后是数字的数字形式。
• 然后sort编辑。
• 然后，第二个sed去除开头的字符（包括）:，并按要求对数字形式进行排序。

number正确处理“减号”，并且其输出足够接近sort所需格式的特定格式。它确实输出“四十四”而不是“四十四”，但是从排序的角度来看这无关紧要。

bsdgames软件包可能需要安装：

sudo apt-get install bsdgames

在sed和sort公用事业几乎肯定是已经在你的发行版。

Python +变形，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"&]

这是非高尔夫版本：

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}

它们产生相同的输出-在mathematica中，f[x]等于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*)

Common Lisp，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)