[更新]2019年新达尔文日应用程序-->https://wolfr.am/BkFupgWe网站
注意：在这篇文章中，我将展示如何创建此应用程序
键入名称时会发生以下情况：
甚至Mathematica也有自己的间谍！在这种情况下Storena Mathematica公司是蜘蛛：
今天是达尔文日! 那么，让我们庆祝一下物种起源通过创建一个好的应用程序。你知道有没有与你同名的物种？让我们找出答案！
首先，我们需要物种及其科学名称的列表。幸运的是，Wolfram语言已经内置了这些信息：
listofEntities=实体列表[EntityClass[“物种”，“物种”]]species=表[StringReplace[listofEntities[[i]][2]]，“物种：”->“”]，{i，长度[listof Entities]}]
现在，我们想把每个学名分成两个单词。遵循二项式命名法第二部分确定属内的物种，这是我们感兴趣的部分。在拆分之前，我们将使用字符串插入在两部分之间加一个空格。
listofNames=表[StringInsert[species[[i]]，“”，字符串位置[species[[i]]，_？上箱Q][[2，1]]]，{i，长度[species]}]；
有几个物种的格式很奇怪，但我们将在这里忽略它们，并使用字符串拆分功能：
list2ndParts=StringSplit[list=Select[listofNames，StringQ[#]&]][[All，2]]；
到目前为止，一切都很好。现在，我们已经可以应用我们的关键功能了：最近的将找到与我们名字最接近的物种名称：
最近的[第二部分列表，“Jofre”，1]
我们可以为它创建一个特定的函数，我们称它为nameToSpecie：
nameToSpecie[name_]：=最近的[list2ndParts，name，1]
最后，我们可以轻松创建FormFunction并将其部署到Wolfram Cloud：
CloudDeploy[FormFunction[{“name”-><|“Interpreter”->“String”，“Input”->“Darwin”|>}，nameToSpecie[#name]&]，“Permissions”->“Public”]
达尔文节快乐！
有乐趣发现新物种，让我知道你有什么物种。
我叫这只蜘蛛科洛萨·何塞:
