function(x, n) i <- 1 res <- 0 while (i <= n) res <- res + (-1)^(i - 1) * x^i / i i <- i + 1 return res
- hanabira 0.6.1320- + wakaba + futallaby + futaba -