16 lines
398 B
Plaintext
16 lines
398 B
Plaintext
let h = 1e-1000
|
|
let diff(f) = (x) = (f(x + h) - f(x)) / h
|
|
|
|
|
|
let f(x) = x*x*x*x*x*x*x*x*x*x+2*x*x*x*x*x*x*x*x*x+3*x*x*x*x*x*x*x*x+4*x*x*x*x*x*x*x+5*x*x*x*x*x*x+6*x*x*x*x*x+7*x*x*x*x+8*x*x*x+9*x*x+10*x+11
|
|
let x = 100
|
|
let d = 0
|
|
|
|
do
|
|
while (true) do
|
|
let n = f(x)
|
|
term.log("f"+string(d)+"("+string(x)+") = "+string(n))
|
|
if (n) do
|
|
f = diff(f)
|
|
d = d + 1
|
|
else return |