R中是否有移位操作？

Question

在C++中有转移operartion

>> right shift 
<< left shift 

这是考虑到是非常快的。
我试图在R中应用它，但它似乎是错误的。

在R中是否存在与此类似的操作？

在此先感谢。

Answer 1

您可以使用bitwShiftL和bitwShiftR：

bitwShiftL(16, 2) 
#[1] 64 

bitwShiftR(16, 2) 
#[1] 4 

这里是source code。根据这些函数中额外代码的数量以及*和/是原语的事实来判断，这些将不可能比分割/乘以2的等效幂更快。在我的虚拟机之一，

microbenchmark::microbenchmark(
    bitwShiftL(16, 2), 
    16 * 4, 
    times = 1000L 
) 
#Unit: nanoseconds 
#    expr min  lq  mean median uq max neval cld 
# bitwShiftL(16, 2) 1167 1353.5 2336.779 1604 2067 117880 1000 b 
#   16 * 4 210 251.0 564.528 347 470 51885 1000 a 

microbenchmark::microbenchmark(
    bitwShiftR(16, 2), 
    16/4, 
    times = 1000L 
) 
# Unit: nanoseconds 
#    expr min  lq  mean median  uq max neval cld 
# bitwShiftR(16, 2) 1161 1238.5 1635.131 1388.5 1688.5 39225 1000 b 
#    16/4 210 240.0 323.787 280.0 334.0 14284 1000 a 

---

我还要指出的是，尝试微优化解释语言可能是在浪费时间。如果性能是一个非常重要的问题，那么您愿意在几个时钟周期内分割头发，那么首先使用C或C++编写程序。