R语言如何无需循环生成d≥1对应的指定特殊序列？

该需求完全可以实现，不需要使用显式循环，利用R语言原生的向量化操作即可完成。

实现代码 #

纯向量化实现（无任何循环逻辑） #

你要生成的序列本质是依次拼接d:2、d:3一直到d:d的结果，用base R自带的sequence()函数可以一行完成：

# 输入参数d≥1
res <- if (d == 1) 1 else d - sequence((d-1):1) + 1

易读版实现（无显式for/while循环） #

如果优先考虑代码可读性，可以使用lapply（不属于常规要求规避的显式循环范畴）：

# 输入参数d≥1
res <- if (d == 1) 1 else unlist(lapply(2:d, function(e) d:e))

效果验证 #

我们用几个常见值测试：

• d=4：输出为4 3 2 4 3 4，和目标结果c(4:2, 4:3, 4:4)完全一致
• d=3：输出为3 2 3，符合预期
• d=1：直接返回1，满足边界条件

内容的提问来源于stack exchange，提问作者anjo1659