wolfram-mathematica - 在 Mathematica 中使用单词表达数字

Question

我听说我们可以用英文单词来表达 Mathematica 中的数字。比如用百来表示100。哪个函数可以做到？

Answer 1

一个基本等同于dreeves 的解决方案(但他的回答是not available at the time)的解决方案是直接从Mathematica 调用 WolframAlpha[] (这需要互联网连接)。例如，

WolframAlpha["6 million 2 hundred and 12 thousand and fifty two", 
             {{"Input", 1}, "Plaintext"}]

返回字符串

"6212052"

所以我们可以构造以下函数来返回实际数字

textToNumber[num_String] := 
 Module[{in = WolframAlpha[num, {{"Input", 1}, "Plaintext"}]},
  If[StringMatchQ[in, NumberString], ToExpression[in], $Failed]]

它还适用于小数和负数，例如 textToNumber["minus one point one"] 。

请注意，我们可以要求除 "Plaintext" 输出之外的其他内容。找出可用内容的最简单方法是输入一些数字，例如 WolframAlpha["twelve"] ，然后按每个“pod”右侧的 ⨁ 符号探索可用选项。还值得探索 documentation ，在那里您可以找到有用的输出“格式”，例如 "MathematicaParse" 和 "PodIDs" 。

我们也可以往另一个方向走:

numberToText[num_Integer] := WolframAlpha[ToString[num], 
                               {{"NumberName", 1}, "Plaintext"}]

我找不到正确的咒语来获得非整数的口语短语形式。如果有人知道正确的咒语，或者 W|A 获得了此能力，请随时更新此答案。很遗憾 SpokenString 没有将数字作为口语阅读的选项。