I try to compile this code, but always failed, could anybody guide me?
a = 1; n = 10; list = Table[1.1, {i, n}];
f = Compile[{{list, _Complex, 1}}, p = Table[0, {i, n}];
Do[p[[i + 1]] = 2 p[[i]] - list[[i]] a^2, {i, 1, n - 1}];
p - p[[n/2]]]
f[list]