Thue-Morse: Difference between revisions
no edit summary
No edit summary |
|||
Line 1,420:
"01101001100101101001011001101001"
"0110100110010110100101100110100110010110011010010110100110010110"</pre>
=={{header|Yabasic}}==
{{trans|Phix}}
<lang Yabasic>tm$ = "0"
for i=1 to 8
? tm$
tm$ = tm$ + inverte$(tm$)
next
sub inverte$(tm$)
local i
for i = 1 to len(tm$)
mid$(tm$, i, 1) = str$(not val(mid$(tm$, i, 1)))
next
return tm$
end sub</lang>
=={{header|zkl}}==
| |||