Thue morse sequence by teebee

PROGRAM-ID.T.DATA DIVISION.WORKING-STORAGE SECTION.
1 I PIC 9(4).
1.
2 A PIC 9 OCCURS 1000.PROCEDURE DIVISION.L.ADD 1 TO I
DISPLAY A(I)COMPUTE A(1+I)=FUNCTION MOD(A(1+I/2)+I,2)GO L.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page