将未评估的表达式列表折叠为单个表达式

Question

拥有以下未评估表达式列表。

l = list(quote(f()),quote(g()),quote(h()))
str(l)
#List of 3
# $ : language f()
# $ : language g()
# $ : language h()

我想使用&函数折叠列表，这样我就会得到r个结果。

r = quote(f() & g() & h())
str(r)
# language f() & g() & h()

当然，重点是处理任何长度的列表。

Answer 1

您可以使用Reduce：

Reduce(function(a,b) bquote(.(a) & .(b)), l)