GKi*_*GKi 10
您可以使用rep和cumprod 创建序列10乘以自身繁衍与c(-1,1)于正与负之间交替:
rep(cumprod(rep(10, 3)), each=2) * c(-1, 1)
#[1] -10 10 -100 100 -1000 1000
Run Code Online (Sandbox Code Playgroud)
另一个想法可以是,
rep(10^seq(3), each = 2) * c(-1, 1)
#[1] -10 10 -100 100 -1000 1000
Run Code Online (Sandbox Code Playgroud)
只需添加一个基准。事实证明,cumprod很快
microbenchmark(sotos = rep(10 ^ seq(30), each = 2) * c(-1, 1),
GKi = rep(cumprod(rep(10, 30)), each = 2) * c(-1, 1))
Run Code Online (Sandbox Code Playgroud)
Run Code Online (Sandbox Code Playgroud)Unit: microseconds expr min lq mean median uq max neval sotos 6.911 7.212 7.83658 7.512 7.513 30.348 100 GKi 1.502 1.803 2.03470 1.804 2.104 11.118 100
| 归档时间: |
|
| 查看次数: |
96 次 |
| 最近记录: |