Hofstadter Figure-Figure sequences: Difference between revisions

→‎{{header|PL/I}}: added Dcl t(1000) Bit(1) Init((1000)(1)'0'b);
(→‎{{header|PL/I}}: added Dcl t(1000) Bit(1) Init((1000)(1)'0'b);)
Line 1,119:
Verification using the above procedures:
<lang>
Dcl t(1000) Bit(1) Init((1000)(1)'0'b);
put skip list ('Verification that the first 40 FFR numbers and the first');
put skip list ('960 FFS numbers result in the integers 1 to 1000 only.');
2,299

edits