Thue-Morse: Difference between revisions
→{{header|XLISP}}
Line 1,784:
7:=> 0110100110010110100101100110100110010110011010010110100110010110
8:=> 01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001</pre>
=={{header|Visual Basic .NET}}==
{{trans|C#}}
<lang vbnet>Imports System.Text
Module Module1
Sub Sequence(steps As Integer)
Dim sb1 As New StringBuilder("0")
Dim sb2 As New StringBuilder("1")
For index = 1 To steps
Dim tmp = sb1.ToString
sb1.Append(sb2)
sb2.Append(tmp)
Next
Console.WriteLine(sb1)
End Sub
Sub Main()
Sequence(6)
End Sub
End Module</lang>
{{out}}
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre>
=={{header|XLISP}}==
| |||