Thue-Morse: Difference between revisions
Content added Content deleted
imported>Arakov |
Not a robot (talk | contribs) (Add Refal) |
||
Line 2,454: | Line 2,454: | ||
01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 |
01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 |
||
^C</pre> |
^C</pre> |
||
=={{header|REFAL}}== |
|||
<syntaxhighlight lang="refal">$ENTRY Go { |
|||
= <Prout <ThueMorse 7>> |
|||
}; |
|||
ThueMorse { |
|||
0 e.X = e.X; |
|||
s.N e.X = <ThueMorse <- s.N 1> <ThueMorseStep e.X>>; |
|||
}; |
|||
ThueMorseStep { |
|||
= '0'; |
|||
e.X = e.X <Invert e.X>; |
|||
}; |
|||
Invert { |
|||
= ; |
|||
'0' e.X = '1' <Invert e.X>; |
|||
'1' e.X = '0' <Invert e.X>; |
|||
};</syntaxhighlight> |
|||
{{out}} |
|||
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |