挑战

编写一个程序来计算e的前N（<= 10 ^ 3）个数字。

您的程序应采用整数N作为输入。

输入：

100

输出：

2.718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427

输入：

7

输出：

2.718282

输入：

1000

输出：

2.718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427427466391932003059921817413596629043572900334295260595630738132328627943490763233829880753195251019011573834187930702154089149934884167509244761460668082264800168477411853742345442437107539077744992069551702761838606261331384583000752044933826560297606737113200709328709127443747047230696977209310141692836819025515108657463772111252389784425056953696770785449969967946864454905987931636889230098793127736178215424999229576351482208269895193668033182528869398496465105820939239829488793320362509443117301238197068416140397019837679320683282376464804295311802328782509819455815301756717361332069811250996181881593041690351598888519345807273866738589422879228499892086805825749279610484198444363463244968487560233624827041978623209002160990235304369941849146314093431738143640546253152096183690888707016768396424378140592714563549061303107208510383750510115747704171898610687396965521267154688957035035

最短的解决方案获胜！

Mathematica（12个字节）

N[E,Input[]]

Python，69岁

e = f = n = 1; N = input（）+ 2; exec“ e + = 10 ** N / f; f * = n; n + = 1;” * N; print'2。'+`e` [ 1：-4]

为e计算标准幂级数的N + 2次迭代。

J，20 ... ish。

计算的，但是...效率很低。定义n（20）：

(0 j.<:n)":+/%!i.x:n+9

作为单项函数（32）：

ge =. 3 : '(0 j.<:y)":+/%!i.x:y+9'

作为默认功能（33，固定）：

(0 j.<:)":(+/)&:(%&!&i.&x:&(9&+))

Python，67岁

import decimal as d
d.getcontext().prec=input()
print d._One.exp()

05AB1E，4 3 2字节

_{划掉4仍然是常规4;（}

感谢@Adnan提供了一个字节。

žt

使用CP-1252编码。

说明：

žt - Push input. Pop a, push e to a places (up to 10000).

更新：

如果栈上都没有输入，则以remove I方式žt进行输入。

Ruby，68岁

require 'bigdecimal/math';include BigMath;puts E(gets.to_i).to_s 'F'

高尔夫脚本43 41

~10\?1:b 461,{)b*:b@+\}460*;*b/`);(;'2.'\

编辑：我也可以将初始化b的剩余数1替换为0，结果差异太小而无法输出。

我留下了旧版本，因为这是我在下面记录的内容。

~10\?1:b;0 461,{)b*:b@+\}460*;*b/`);(;'2.'\

~10\?接受输入并计算10 ^输入，将结果保留在堆栈中。
1:b;将1存储在b中。
0 461,将0放在堆栈上，将数组[0 1 ... 459 460]放在堆栈上。
{ }460*执行功能460次。
)b*:b取数组的最后一个元素，乘以b，将结果存储在b中，然后将结果保留在堆栈中。
@+\将0（在第一次迭代中仅为0）切换到堆栈顶部，将其添加到剩余的b值，然后再次将结果切换回。
;删除数组的其余部分（仅剩下[0]）。
现在，已初始化为0的数字的值为e * 460！b保持460！
*将10 ^输入乘以e * 460！（此时，它们是堆栈上仅剩2个元素）。
b/将结果除以b。
堆栈现在保存值e * 10 ^ input，将其转换为字符串时将保存所有小数，但不包含点。
`);(;'2.'\一堆适合点的字符串操作。

e * 460！计算为1 + 460 + 460 * 459 + 460 * 459 * 458等。

公元前 17个字符

scale=read()
e(1)

J，17

(":&(x:^1)@*&0j1)

例：

(":&(x:^1)@*&0j1) 50
2.71828182845891281655718620537435347047040502245993

使用内置的指数动词-因此，“计算”是基于不稳定的。基本上：

^1 - computes e**1
x: - does extended precision
0jy ": - formats the number to y digit

GTB，14

eS?`AS;_,1,A+1

说明

e-放置e为最后一个计算值

S?-转换e为字符串_

`A -输入A

S;_,1,A+1显示的前A几位e

Mathcad，[tbd]字节

使用插口算法-http: //comjnl.oxfordjournals.org/content/11/2/229.full.pdf+html。

尚未确定字节数，因为Mathcad字节数等效项尚未确定。但是，使用等价符号大约需要121个字节...无论如何确定等价符号，都不会赢得任何简短的奖项。

Mathematica，7个字节

N[E,#]&

我的答案是对此答案的进一步探讨。

在线尝试！

由于某些原因，TIO上的输出看起来很有趣，但是我在我的机器上对其进行了测试，并且代码工作正常。

Perl 5，12 -Mbignum=bexp -p个字节

$_=bexp 1,$_

在线尝试！