# Return to Answer

 2 added 208 characters in body edited Jan 8 '14 at 14:01 ybeltukov 39.3k55 gold badges9595 silver badges191191 bronze badges Self-rotating code: (#2[Rotate[RInterpretation[Rotate[R, 2 π #1#/5], #0[Mod[#1#0[Mod[#, 5] + 1, #2]]1]] &)[0, Interpretation][0]  It produces R which rotatingrotates by 2 π/5 after each evaluation Full input form of this symbol is Interpretation[Rotate[R, (2*Pi)/5], (#2[Rotate[RInterpretation[Rotate[R, 2*Pi*(#1/5)], #0[Mod[#1, 5] + 1, #2]]1]] & )[Mod[1, 5][ + 1Mod[1,  5] + Interpretation]]1]]  Don't drink and derive! :) You can copy-pasting result of one self-rotating code to another. Full code is here. Self-rotating code: (#2[Rotate[R, 2 π #1/5], #0[Mod[#1, 5] + 1, #2]] &)[0, Interpretation]  It produces R which rotating by 2 π/5 after each evaluation Full input form of this symbol is Interpretation[Rotate[R, (2*Pi)/5], (#2[Rotate[R, 2*Pi*(#1/5)], #0[Mod[#1, 5] + 1, #2]] & )[Mod[1, 5] + 1,   Interpretation]]  Self-rotating code: (Interpretation[Rotate[R, 2 π #/5], #0[Mod[#, 5] + 1]] &)[0]  It produces R which rotates by 2 π/5 after each evaluation Full input form of this symbol is Interpretation[Rotate[R, (2*Pi)/5], (Interpretation[Rotate[R, 2*Pi*(#1/5)], #0[Mod[#1, 5] + 1]] & )[ Mod[1, 5] + 1]]  Don't drink and derive! :) You can copy-pasting result of one self-rotating code to another. Full code is here. 1 answered Jan 8 '14 at 1:10 ybeltukov 39.3k55 gold badges9595 silver badges191191 bronze badges Self-rotating code: (#2[Rotate[R, 2 π #1/5], #0[Mod[#1, 5] + 1, #2]] &)[0, Interpretation]  It produces R which rotating by 2 π/5 after each evaluation Full input form of this symbol is Interpretation[Rotate[R, (2*Pi)/5], (#2[Rotate[R, 2*Pi*(#1/5)], #0[Mod[#1, 5] + 1, #2]] & )[Mod[1, 5] + 1, Interpretation]]