Thue-Morse: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
(Added solution for Action!) |
||
Line 68: | Line 68: | ||
1001011001101001011010011001011001101001100101101001011001101001 |
1001011001101001011010011001011001101001100101101001011001101001 |
||
0110100110010110100101100110100110010110011010010110100110010110</pre> |
0110100110010110100101100110100110010110011010010110100110010110</pre> |
||
=={{header|Action!}}== |
|||
<lang Action!>PROC Next(CHAR ARRAY s) |
|||
BYTE i,len |
|||
CHAR c |
|||
IF s(0)=0 THEN |
|||
s(0)=1 s(1)='0 |
|||
RETURN |
|||
FI |
|||
FOR i=1 TO s(0) |
|||
DO |
|||
IF s(i)='0 THEN |
|||
c='1 |
|||
ELSE |
|||
c='0 |
|||
FI |
|||
s(s(0)+i)=c |
|||
OD |
|||
s(0)==*2 |
|||
RETURN |
|||
PROC Main() |
|||
BYTE i |
|||
CHAR ARRAY s(256) |
|||
s(0)=0 |
|||
FOR i=0 TO 7 |
|||
DO |
|||
Next(s) |
|||
PrintF("T%B=%S%E%E",i,s) |
|||
OD |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Thue-Morse.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
T0=0 |
|||
T1=01 |
|||
T2=0110 |
|||
T3=01101001 |
|||
T4=0110100110010110 |
|||
T5=01101001100101101001011001101001 |
|||
T6=0110100110010110100101100110100110010110011010010110100110010110 |
|||
T7=01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |