2 added 208 characters in body
source | link

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

enter image description here

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! :)

enter image description here

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

enter image description here

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

enter image description here

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! :)

enter image description here

You can copy-pasting result of one self-rotating code to another. Full code is here.

1
source | link

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

enter image description here

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]]