R 具有起始值和定义的调用次数的函数的迭代定点调用

我想写一个简单而优雅的函数，它将给定的函数f应用于它自身n次给定的起始值x0。不需要数字函数，例如dirname

此解决方案解决了问题，但看起来太复杂了：

it_call <- function(f, x0, n) Reduce(function(x, y) ifelse(x==1, f(x0), f(x)), 1:(n+1))

另一个例子：

i_call(sqrt, 256, 3)

[1] 2

这将有助于：

it_call <- function(f, x0, n) Reduce(function(x, y) f(x), 1:n, init=x0)

---

不确定您对太复杂的标准是什么。

thx，这肯定是一个改进，现在看起来好多了。让我们看看是否有人提供了避免减少碳排放的解决方案。你到底希望在这个位置上得到什么？一个不同的函数名？一个不同的原则，而不是减少，不知道什么。也许，减量是最好的选择。

it_call <- function(f, x0, n) Reduce(function(x, y) f(x), 1:n, init=x0)