Thue-Morse: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,608: | Line 1,608: | ||
=={{header|M2000 Interpreter}}== |
=={{header|M2000 Interpreter}}== |
||
Adapted from Java. |
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). |
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: | Line 1,678: | ||
</pre> |
</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}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |