怎么对列表的内容进行局部替换？

1、先来给出一个字母列表：

U=CharacterRange["a", "z"]

2、把第六个字母替换为000：

ReplacePart[U, 6 -> "000"]

注意，这里的000需要以字符串的形式出现。

3、否则，Mathematica会把它当成数字0对待：

ReplacePart[U, 6 -> 000]

4、把第6到第9个元素，替换为000：

ReplacePart[U, {{6 | 7 | 8 | 9} -> "000"}]

5、把偶数位置的字母替换为0：

ReplacePart[U, _?EvenQ -> 0]

1、二维列表的主要代表，就是矩阵：

V = Partition[U, 6];

2、把第二行第三个元素替换为“哈”：

ReplacePart[V, {2, 3} -> 哈]

3、替换第三行所有的元素：

ReplacePart[V, {3, _} -> 哈]

4、替换第三列所有的元素：

ReplacePart[V, {_, 3} -> 哈]

5、替换第一列和最后一列的元素：

ReplacePart[V, {_, 1 | 6} -> 哈]

6、替换对角元素：

ReplacePart[V, {i_, i_} -> 哈]

思考一下，怎么替换反对角线上的元素？