自然常数e

hbghlyj

2021 Wolfram 中国一行代码比赛的获奖作品 第一名 肖天翼

1. (126char)
3. $$=$=$/$;$//=#/@#[##&[]~~_][[$,$++,$]]&[\!\(\*"?$"\)&[[$,$-$]]][[;;,$$,-++$!]]/.{__,_[_,$_,_],__}:>$;$-=$;//._:>($$+=++$/$/$!)
5. 低于12.2的改为(127char)：
7. $$=$=$/$;$=$//#/@#[##&[]~~_][[$,$++,$]]&[\!\(\*"?$"\)&[[$,$-$]]][[;;,$$,-++$!]]/.{__,_[_,$_,_],__}:>$;$-=$;//._:>($$+=++$/$/$!)

Copy the Code

Mathematica 13运行:

将纯函数与ReplaceAll和ReplaceRepeated一起使用时，它递归地得到自然常数|欧拉数   e 的机器精度值。这是我唯一一次看到函数中使用线性语法而不是格式化的情况。（但是它导致许多不必要的计算，而这些计算与结果无关。）它巧妙地使用纯函数和规则来获取机器精度的e.
只算了个数值级数求和，70%的代码在寻找符号N.
这个代码不能直接粘贴到Notebook (要手动把Notebook给变动的地方\!\(\*"?$"\)改回去)。

hbghlyj

第一句$$=$=$/$;赋值1给$和$$这2个变量
第二句的开头$//=#/@#[##&[]~~_][[$,$++,$]]&是把一个纯函数ApplyTo我们的变量$
详细解释为:
第1个字符是我们刚定义的变量$
后面的//=是ApplyTo
后面是一个纯函数#/@#[##&[]~~_][[$,$++,$]]&
其中##是SlotSequence 所以##&[]是Sequence[]
~~是StringExpression
_是Blank[]
所以##&[]~~_是把一列参数中最后的参数分出来
$,$++,$的值是1,2,1
然后就不知道了请教一下