不使用 rev() 反转向量

Question

我们必须在没有 rev() 的情况下反转它。不允许使用 if/for 循环。它也必须适用于 numeric(0)。

v[length(v):1]

对于长度为 0 的向量，无法正确输出。

Answer 1

只需使用

switch

，只需计算一次长度即可。

v <- numeric(0L)  ## creating vector of length zero

v[{len <- length(v); switch((len > 0L) + 1L, 0L, len:1)}]
# numeric(0)

Answer 2

试试这个

> v <- numeric(0)

> v[length(v) - seq_along(v) + 1]
numeric(0)

和

> v <- c(5, 2, 7, 8, 3)

> v[length(v) - seq_along(v) + 1]
[1] 3 8 7 2 5

Answer 3

我会简单地使用

v[length(v):0]