Anonymous user
Thue-Morse: Difference between revisions
m
add R solution
No edit summary |
m (add R solution) |
||
Line 1,280:
>>>
</lang>
=={{header|R}}==
<lang rsplus>
thue_morse <- function(steps) {
sb1 <- "0"
sb2 <- "1"
for (idx in 1:steps) {
tmp <- sb1
sb1 <- paste0(sb1, sb2)
sb2 <- paste0(sb2, tmp)
}
sb1
}
cat(thue_morse(6), "\n")
</lang>
{{out}}
<pre>
0110100110010110100101100110100110010110011010010110100110010110
</pre>
=={{header|Racket}}==
| |||