r中的递归程序

Question

我正在做一些计算，但我很难在r中编写一个能够完成我需要的程序。

y1<-length(intersect(x1,x2))
y2<-length(intersect(x3, union(x1,x2)))
y3<-length(intersect(x4, union(x3,union(x1,x2))))
y4<-length(intersect(x5, union(x4, union(x3,union(x1,x2)))))

我正在寻找一种计算方法

String

Answer 1

使用@Frank中的修改代码

 nx <- 5L
 xx <- mget(paste0('x', 1:nx))
 cux <- Reduce(union, xx, accumulate=TRUE)
 lengths(Map(intersect, xx[-1], cux[-nx] ))