Thue-Morse: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 1,609:
Adapted from Java.
===One by One===
The
<syntaxhighlight lang="m2000 interpreter">
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$=
do
resp$=t$(16)
Line 1,681 ⟶ 1,680:
<syntaxhighlight lang="m2000 interpreter">
// copy
dim t$(0 to 6)
document log$
jobs=stack
For i=6 to 0
t$(i)=
stack jobs {push i}
next i
|