Thue-Morse: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
|||
| Line 353: | Line 353: | ||
01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 |
01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 |
||
0110100110010110100101100110100110010110011010010110100110010110100101100110100101101001100101100110100110010110100101100110100110010110011010010110100110010110011010011001011010010110011010010110100110010110100101100110100110010110011010010110100110010110</pre> |
0110100110010110100101100110100110010110011010010110100110010110100101100110100101101001100101100110100110010110100101100110100110010110011010010110100110010110011010011001011010010110011010010110100110010110100101100110100110010110011010010110100110010110</pre> |
||
=={{header|BCPL}}== |
|||
<lang BCPL>get "libhdr" |
|||
let parity(x) = |
|||
x=0 -> 0, |
|||
(x&1) neqv parity(x>>1) |
|||
let start() be |
|||
$( for i=0 to 63 do writen(parity(i)) |
|||
wrch('*N') |
|||
$)</lang> |
|||
{{out}} |
|||
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre> |
|||
=={{header|Befunge}}== |
=={{header|Befunge}}== |
||