Thue-Morse: Difference between revisions
Thue-Morse en FreeBASIC
(Thue-Morse en BASIC256) |
(Thue-Morse en FreeBASIC) |
||
Line 607:
F T T F T F F T T F F T F T T F
F T T F T F F T T F F T F T T F T F F T F T T F F T T F T F F T
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>
Dim As String tm = "0"
Function Thue_Morse(s As String) As String
Dim As String k = ""
For i As Integer = 1 To Len(s)
If Mid(s, i, 1) = "1" Then
k += "0"
Else
k += "1"
End If
Next i
Thue_Morse = s + k
End Function
Print tm
For j As Integer = 1 To 7
tm = Thue_Morse(tm)
Print tm
Next j
End
</lang>
{{out}}
<pre>
0
01
0110
01101001
0110100110010110
01101001100101101001011001101001
0110100110010110100101100110100110010110011010010110100110010110
01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001
</pre>
| |||