Thue-Morse: Difference between revisions
Added XPL0 example.
Not a robot (talk | contribs) (Add 8080 assembly) |
(Added XPL0 example.) |
||
Line 1,817:
"01101001100101101001011001101001"
"0110100110010110100101100110100110010110011010010110100110010110"</pre>
=={{header|XPL0}}==
<lang XPL0>string 0; \use zero-terminated strings
char Thue;
int N, I, J;
[Thue:= Reserve(Free-100);
Thue(0):= ^0;
J:= 1; \set index to terminator
for N:= 0 to 6 do
[Thue(J):= 0; \terminate string
Text(0, Thue); \show result
CrLf(0);
I:= 0; \invert string and store it on the end
repeat Thue(J+I):= Thue(I) xor 1;
I:= I+1;
until I = J;
J:= J+I; \set index to terminator
];
]</lang>
{{out}}
<pre>
0
01
0110
01101001
0110100110010110
01101001100101101001011001101001
0110100110010110100101100110100110010110011010010110100110010110
</pre>
=={{header|Yabasic}}==
| |||