Mathematica，字母生成

Question

如果我有一个字母表，比如说 sigma = {1,2,3,4,a,b,c,d,e,f,g}，并且想要生成长度为 n 的所有单词，是否有一种方法可以做到这一点？

对于 wordlength=2，我可以使用 Flatten[Outer[Function[{x, y}, {x, y}], sigma, sigma], 1] 来实现，但是它不能推广到更多的字母。 排列不起作用，因为它不包括重复项。 例如，Permutations[sigma, {2}] 不会给出 {a,a}。

是否有一种简单的方法来完成这个任务，还是我必须自己写一个函数来实现？

对于 n=2，下面是正确的（但我希望对于任意 n）：

{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {1, a}, {1, b}, {1, c}, {1, d}, {1, 
  e}, {1, f}, {1, g}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {2, a}, {2, 
  b}, {2, c}, {2, d}, {2, e}, {2, f}, {2, g}, {3, 1}, {3, 2}, {3, 
  3}, {3, 4}, {3, a}, {3, b}, {3, c}, {3, d}, {3, e}, {3, f}, {3, 
  g}, {4, 1}, {4, 2}, {4, 3}, {4, 4}, {4, a}, {4, b}, {4, c}, {4, 
  d}, {4, e}, {4, f}, {4, g}, {a, 1}, {a, 2}, {a, 3}, {a, 4}, {a, 
  a}, {a, b}, {a, c}, {a, d}, {a, e}, {a, f}, {a, g}, {b, 1}, {b, 
  2}, {b, 3}, {b, 4}, {b, a}, {b, b}, {b, c}, {b, d}, {b, e}, {b, 
  f}, {b, g}, {c, 1}, {c, 2}, {c, 3}, {c, 4}, {c, a}, {c, b}, {c, 
  c}, {c, d}, {c, e}, {c, f}, {c, g}, {d, 1}, {d, 2}, {d, 3}, {d, 
  4}, {d, a}, {d, b}, {d, c}, {d, d}, {d, e}, {d, f}, {d, g}, {e, 
  1}, {e, 2}, {e, 3}, {e, 4}, {e, a}, {e, b}, {e, c}, {e, d}, {e, 
  e}, {e, f}, {e, g}, {f, 1}, {f, 2}, {f, 3}, {f, 4}, {f, a}, {f, 
  b}, {f, c}, {f, d}, {f, e}, {f, f}, {f, g}, {g, 1}, {g, 2}, {g, 
  3}, {g, 4}, {g, a}, {g, b}, {g, c}, {g, d}, {g, e}, {g, f}, {g, g}}

- Smith Johnson

Answer 1

Tuples[sigma, n]

- kennytm

---

当有人问一个可以用 Mathematica 中的一个函数解决的问题时，我总是微笑着回答。 - Mr.Wizard

Answer 2

虽然使用Tuples是更好的方法，但我认为展示一种让你现有的方法适用于任意n值的方法也很有价值。

Flatten[Outer[List, ##], n - 1] & @@ ConstantArray[sigma, n]

这是通过创建 n 个 sigma 实例并将它们合并（使用##）到 Outer 中来实现的。使用 Flatten 可以移除除最后一级括号之外的所有括号。

注意，你的 Function[{x, y}, {x, y}] 可以被替换为简单的 List。

如果你的字母表本身不包含列表，也可以使用 Distribute 函数来进行此操作。

Distribute[ConstantArray[sigma, n], List]

- Mr.Wizard