Jump to content

Thue-Morse: Difference between revisions

m
Line 1,609:
Adapted from Java.
===One by One===
The truemorsethuemorse lambda function return another lambda, which used to send specific part of message, until end of message (return empty string).
 
<syntaxhighlight lang="m2000 interpreter">
truemorsethuemorse$=lambda$ (n as integer)->{
def sb0$="0", sb1$="1"
n=max.data(0, n)
Line 1,627:
end while
if n>=0 then n-- :park$+=sb0$
 
if many<len(park$) then
Line 1,642 ⟶ 1,641:
log$="Message :"+str$(i,0)+{
}
t$=truemorsethuemorse$(i)
do
resp$=t$(16)
Line 1,681 ⟶ 1,680:
 
<syntaxhighlight lang="m2000 interpreter">
// copy truemorsethuemorse lambda here//
dim t$(0 to 6)
document log$
jobs=stack
For i=6 to 0
t$(i)=truemorsethuemorse$(i)
stack jobs {push i}
next i
404

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.