我如何打印所有具有给定等级重复的 r 排列？

Question

大家好，我有一个问题：我必须通过重复给定列表来搜索 r-pemutation 让我们说 {1, 2, 3} 那些具有特定 rank.Well 我知道如何生成所有排列，但我被困在必须检查他们的排名是否与我选择的排名相同的部分。我尝试使用 Select 函数，但我不知道我应该给 RankPermutation 什么参数，这样它才能工作。

Select[Tuples[{1, 2, 3} , 3], RankPermutation[] == 2]

PS：抱歉，如果问题很愚蠢或者我有什么不对的地方，但这只是我第一周的 Wolfram-Mathematica，所以不要太苛刻地评判我。

Answer 1

Quiet@Needs["Combinatorica`"]

Select[Tuples[{1, 2, 3}, 3], RankPermutation[#] == 2 &]

{{2, 1, 3}}

或使用更普通的形式

Select[Tuples[{1, 2, 3}, 3], Function[tuple, RankPermutation[tuple] == 2]]

{{2, 1, 3}}

见Slot and Pure Functions