Thanks for posting this Ed. Three comments:

1. The 2012 One-line competition should be the 2012 One-liner competition.
2. I don’t follow the code for plotting the critical points of degree d polynomials—and note that it uses Internal functionality. Perhaps this should be added to the Function Repository?
3. Yuncong Ma‘s code can be improved slightly using NSolveValues instead of NSolve:

Graphics[{PointSize[Tiny], Point@Flatten[ReIm /@ (t |-> NSolveValues[z^Range[0,11].t==0,z]) /@ Tuples[{-1,1},12], 1]}]