如何在mathematica中修复此列表分配

Question

我想在Mathematica中执行以下操作

Table[p[i], {i, -3, 0}] = Flatten[{Table[0, {i, -3, -1}], 1}]

但是我收到了一个错误:

Set::write: Tag Table in Table[p[i], {i, -3, 0}] is Protected.

但是,这样做完全没问题:

{p[-3], p[-2], p[-1], p[0]} = Flatten[{Table[0, {i, -3, -1}], 1}]

非常感谢!

Answer 1

强制LHS评估成可分配给的部分:

评估[表[p [i],{i,-3,0}]] =展平[{Table [0,{i,-3,-1}],1}]