Thue-Morse: Difference between revisions
→{{header|Perl 6}}: Added Perl 6 solution
(→{{header|SQL}}: Added zkl) |
(→{{header|Perl 6}}: Added Perl 6 solution) |
||
Line 4:
<lang AWK>BEGIN{print x="0"}
{gsub(/./," &",x);gsub(/ 0/,"01",x);gsub(/ 1/,"10",x);print x}</lang>
=={{header|Perl 6}}==
<lang perl6>my @tm := 0, -> *@s { @s.map({ + not $_ }) } ... *;
say @tm[^64].join;</lang>
{{out}}
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre>
=={{header|SQL}}==
| |||