Task

Create a Thue-Morse sequence.



See also
   YouTube entry: The Fairest Sharing Sequence Ever
   YouTube entry: Math and OCD - My story with the Thue-Morse sequence
   Task: Fairshare between two and more


[ [] 0 rot times
    [ i^ dup 1 - ^
      dup 1 >> ^ hex 55555555 & if
        [ 1 swap - ]
      dup dip
        [ digit join ] ] drop ]     is thue-morse ( n --> $ )
 
20 thue-morse echo$ cr