Thue-Morse: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(Added Easylang) |
||
Line 882: | Line 882: | ||
{{out}} |
{{out}} |
||
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre> |
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|BASIC256}} |
|||
<syntaxhighlight> |
|||
func$ tmorse s$ . |
|||
for i to len s$ |
|||
if substr s$ i 1 = "1" |
|||
k$ &= "0" |
|||
else |
|||
k$ &= "1" |
|||
. |
|||
. |
|||
return s$ & k$ |
|||
. |
|||
tm$ = "0" |
|||
print tm$ |
|||
for j to 7 |
|||
tm$ = tmorse tm$ |
|||
print tm$ |
|||
. |
|||
</syntaxhighlight> |
|||
=={{header|Elena}}== |
=={{header|Elena}}== |