Thue-Morse: Difference between revisions
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 1,608:
=={{header|M2000 Interpreter}}==
Adapted from Java.
===One by One===
The truemorse lambda function return another lambda, which used to send specific part of message, until end of message (return empty string).
Line 1,677 ⟶ 1,678:
</pre>
===All together===
<syntaxhighlight lang="m2000 interpreter">
// copy truemorse lambda here//
dim t$(0 to 6)
document log$
jobs=stack
For i=6 to 0
t$(i)=truemorse$(i)
stack jobs {push i}
next i
stack jobs {
while not empty
read i
resp$=t$(i)(16)
if resp$<>"" then
log$="Message :"+str$(i,0)+{
}
log$=resp$+"...transmitted"+{
}
data i
end if
end while
}
Clipboard log$
Report log$
</syntaxhighlight>
{{out}}
<pre>
Message :0
0...transmitted
Message :1
01...transmitted
Message :2
0110...transmitted
Message :3
01101001...transmitted
Message :4
0110100110010110...transmitted
Message :5
0110100110010110...transmitted
Message :6
0110100110010110...transmitted
Message :5
1001011001101001...transmitted
Message :6
1001011001101001...transmitted
Message :6
1001011001101001...transmitted
Message :6
0110100110010110...transmitted
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
| |||