Thue-Morse: Difference between revisions
Content added Content deleted
(→{{header|SQL}}: Added zkl) |
(→{{header|Perl 6}}: Added Perl 6 solution) |
||
| Line 4: | Line 4: | ||
<lang AWK>BEGIN{print x="0"} |
<lang AWK>BEGIN{print x="0"} |
||
{gsub(/./," &",x);gsub(/ 0/,"01",x);gsub(/ 1/,"10",x);print x}</lang> |
{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}}== |
=={{header|SQL}}== |
||