Thue-Morse: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cobol) |
Not a robot (talk | contribs) (Add PL/M) |
||
Line 2,146: | Line 2,146: | ||
(prinl (pack 0 (bin R))) |
(prinl (pack 0 (bin R))) |
||
(inc 'X X) ) )</syntaxhighlight> |
(inc 'X X) ) )</syntaxhighlight> |
||
=={{header|PL/M}}== |
|||
<syntaxhighlight lang="PLM">100H: |
|||
BDOS: PROCEDURE (F,A); DECLARE F BYTE, A ADDRESS; GO TO 5; END BDOS; |
|||
EXIT: PROCEDURE; GO TO 0; END EXIT; |
|||
PUT$CHAR: PROCEDURE (C); DECLARE C BYTE; CALL BDOS(2,C); END PUT$CHAR; |
|||
/* FIND THE NTH ELEMENT OF THE THUE-MORSE SEQUENCE */ |
|||
THUE: PROCEDURE (N) BYTE; |
|||
DECLARE N ADDRESS; |
|||
N = N XOR SHR(N,8); |
|||
N = N XOR SHR(N,4); |
|||
N = N XOR SHR(N,2); |
|||
N = N XOR SHR(N,1); |
|||
RETURN N AND 1; |
|||
END THUE; |
|||
/* PRINT THE FIRST 64 ELEMENTS */ |
|||
DECLARE I BYTE; |
|||
DO I=0 TO 63; |
|||
CALL PUT$CHAR('0' + THUE(I)); |
|||
END; |
|||
CALL EXIT; |
|||
EOF</syntaxhighlight> |
|||
{{out}} |
|||
<pre>0110100110010110100101100110100110010110011010010110100110010110</pre> |
|||
=={{header|PowerShell}}== |
=={{header|PowerShell}}== |