Thue-Morse: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|HP|48G}}

We use here the bitwise negation method: it needs few words and is actually faster than the "fast" generation method, because RPL is better in list handling than in bitwise calculations.

≪ { 0 }

'''WHILE''' DUP2 SIZE > '''REPEAT'''

1 OVER - +

'''END'''

1 ROT SUB

≫ '<span style="color:blue">THUEM</span>' STO

20 <span style="color:blue">THUEM</span>

{{out}}

<pre>

1: { 0 1 1 0 1 0 0 1 1 0 0 1 0 1 1 0 1 0 0 1 }