Anonymous user
Thue-Morse: Difference between revisions
Added solution for Action!
Not a robot (talk | contribs) (Add Cowgol) |
(Added solution for Action!) |
||
Line 68:
1001011001101001011010011001011001101001100101101001011001101001
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}}==
| |||