Thue-Morse: Difference between revisions
Added AutoHotkey
(Added Fōrmulæ solution) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
Line 294:
0110100110010110
01101001100101101001011001101001</pre>
=={{header|AutoHotkey}}==
<lang AutoHotkey>ThueMorse(num, iter){
if !iter
return num
for i, n in StrSplit(num)
opp .= !n
res := ThueMorse(num . opp, --iter)
return res
}</lang>
Examples:<lang AutoHotkey>num := 0
loop 7
output .= A_Index-1 " : " ThueMorse(num, A_Index-1) "`n"
MsgBox % output</lang>
{{out}}
<pre>0 : 0
1 : 01
2 : 0110
3 : 01101001
4 : 0110100110010110
5 : 01101001100101101001011001101001
6 : 0110100110010110100101100110100110010110011010010110100110010110
</pre>
=={{header|AWK}}==
| |||