R、 未知数量向量/矩阵的成对乘积

我想把基R中的可变数量的矩阵/向量进行成对乘积。

---

我只有这个丑陋的解决方案（丑陋的是

使用
Reduce
：

f1 <- function(...) {
  Reduce(`*`, list(...))
}

all(f1(m1,m2,m3) == m1*m2*m3)
#[1] TRUE

f1我说的不是矩阵积而是元素对元素的积对吗？是的，没错。
f1 <- function(...) {
  Reduce(`*`, list(...))
}

all(f1(m1,m2,m3) == m1*m2*m3)
#[1] TRUE