Revision as of 18:52, 23 April 2021 view source Hout (talk \| contribs) 9,659 edits m →‎{{header\|Haskell}} ← Older edit		Revision as of 23:12, 11 May 2021 view source Not a robot (talk \| contribs) 2,138 edits Add BCPL Newer edit →
Line 353: 01101001100101101001011001101001100101100110100101101001100101101001011001101001011010011001011001101001100101101001011001101001 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}}==

Thue-Morse: Difference between revisions