R中的列表理解

Question

有没有办法在R中实现列表理解？

像python:

sum([x for x in range(1000) if x % 3== 0 or x % 5== 0])

在Haskell中也一样:

sum [x| x<-[1..1000-1], x`mod` 3 ==0 || x `mod` 5 ==0 ]

在R中应用它的实用方法是什么？

缺口

Answer 1

像这样的东西？

l <- 1:1000
sum(l[l %% 3 == 0 | l %% 5 == 0])

Answer 2

是的,列表理解可以在R中:

sum((1:1000)[(1:1000 %% 3) == 0 | (1:1000 %% 5) == 0])

Answer 3

这是很多年后的事了，但 CRAN 上现在有三个列表理解包。每个语法都略有不同。所有这些都运行良好，但 listcompr 支持方便的自定义列命名（此处不需要），而 eList 支持与并行包结合的并行处理（此处未显示）。按字母顺序排列：

library(comprehenr)
sum(to_vec(for(x in 1:1000) if (x %% 3 == 0 | x %% 5 == 0) x))
## [1] 234168

library(eList)
Sum(for(x in 1:1000) if (x %% 3 == 0 | x %% 5 == 0) x else 0)
## [1] 234168

library(listcompr)
sum(gen.vector(x, x = 1:1000, x %% 3 == 0 | x %% 5 == 0))
## [1] 234168

另外以下内容仅在 github 上。

# devtools::install.github("mailund/lc")
library(lc)
sum(unlist(lc(x, x = seq(1000), x %% 3 == 0 | x %% 5 == 0)))
## [1] 234168