Thue-Morse: Difference between revisions
added Factor
No edit summary |
(added Factor) |
||
Line 517:
|> Enum.each(&IO.puts/1)</lang>
{{out}}
<pre>
0
01
0110
01101001
0110100110010110
01101001100101101001011001101001
0110100110010110100101100110100110010110011010010110100110010110
</pre>
=={{header|Factor}}==
<lang factor>USING: io kernel math math.parser sequences ;
: thue-morse ( seq n -- seq' )
[ [ ] [ [ 1 bitxor ] map ] bi append ] times ;
: print-tm ( seq -- ) [ number>string ] map "" join print ;
7 iota [ { 0 } swap thue-morse print-tm ] each</lang>
{{out}}
<pre>
|