level 2
Grid[Table[i -> j, {i, 1, 4}, {j, 1, 4}]]
{
{1 -> 1, 1 -> 2, 1 -> 3, 1 -> 4},
{2 -> 1, 2 -> 2, 2 -> 3, 2 -> 4},
{3 -> 1, 3 -> 2, 3 -> 3, 3 -> 4},
{4 -> 1, 4 -> 2, 4 -> 3, 4 -> 4}
}
就是去掉对角线1->1,....,4->4
2020年11月23日 00点11分
1
吧务
level 10
Grid@Array[If[SameQ@#
#,Nothing,Rule@#
#] &, {4,4}]
2020年11月23日 11点11分
2