求一段mathematica code，找到１２３４，所有的４位不重复组合

orionsnow

求一段mathematica code，找到１２３４，所有的４位不重复组合， 比如１２２４，１４２２ 就重复  １２２４ 和２１１４ 就不重复

穷举算法我知道的，主要是想在mathematica 里头用几个简单命令的组合就可以实现，比较省事。

eous

我怎么不能理解你的问题？ 你是想找到1234所组成的自然数对， 每一对的两个数必须有一个数字不同？

orionsnow

有四种父母本类型，分别为１２３４（比如黑人，白人，黄人，红人），在他们构成的群体里头，取４个样本出来够成新群体（植物雌雄同体），求有多少取法？

因为不考虑顺序

１２２４ 和１４２２，４１２２，２１２４ 等就是一样的，算一种取法，问有多少种取法。

我已经找到命令了用deleteduplicate 和其他命令组合下就可以运算了。