r - 如何找到乘以固定乘积的向量的所有可能组合？

Question

假设我有 3 个向量，L , Y , 和 R .如何找到 L 的所有可能组合, Y , 和 R乘以给定的产品？
例如，如何找到L的所有组合, Y , 和 R使得 L * Y * R = 6 ?

Answer 1

这是使用 expand.grid 的蛮力基础 R 解决方案+ subset + Reduce

N <- 6
v <- seq(N)[N%%seq(N)==0]
res <- subset(
  res <- expand.grid(rep(list(v),3)),
  Reduce("*",res)==N
)

这使

> res
   Var1 Var2 Var3
4     6    1    1
7     3    2    1
10    2    3    1
13    1    6    1
19    3    1    2
25    1    3    2
34    2    1    3
37    1    2    3
49    1    1    6