Thue-Morse: Difference between revisions

m
→‎{{header|Perl 6}}: update to ease automated testing
m (→‎{{header|Perl 6}}: update to ease automated testing)
Line 995:
 
=={{header|Perl 6}}==
{{Works with|rakudo|2015-12-222018.03}}
First 8 of an infinite sequence
Use Ctrl-C to interrupt.
<lang perl6>.say for (0, { '0' ~ @_.join.trans( "01" => "10", :g) } ... *)[^8];</lang>
 
{{out}}
10,333

edits