Return to Answer

minor correction to use built-in function DiagonalMatrix

Source Link

edited Mar 22 at 12:31

59.4k
5
40
95

Clear["Global`*"];
f[n_ /; n ∈ PositiveIntegers] := Module[{
    rule = Alternatives @@ (IdentityMatrix[n]*Range[n])DiagonalMatrix@Range@n /. 0 -> Blank[])
    },
   DeleteCases[Permutations[Range[n]], rule]
   ];

f /@ Range[4] // Column

Result:

Clear["Global`*"];
f[n_ /; n ∈ PositiveIntegers] := Module[{
    rule = Alternatives @@ (IdentityMatrix[n]*Range[n]) /. 0 -> Blank[]
    },
   DeleteCases[Permutations[Range[n]], rule]
   ];

f /@ Range[4] // Column

Result:

Clear["Global`*"];
f[n_ /; n ∈ PositiveIntegers] := Module[{
    rule = Alternatives @@ (DiagonalMatrix@Range@n /. 0 -> Blank[])
    },
   DeleteCases[Permutations[Range[n]], rule]
   ];

f /@ Range[4] // Column

Result:

Source Link

created Mar 22 at 12:16

Syed

59.4k
5
40
95

Clear["Global`*"];
f[n_ /; n ∈ PositiveIntegers] := Module[{
    rule = Alternatives @@ (IdentityMatrix[n]*Range[n]) /. 0 -> Blank[]
    },
   DeleteCases[Permutations[Range[n]], rule]
   ];

f /@ Range[4] // Column

Result: