Hofstadter Figure-Figure sequences: Difference between revisions
m
→{{header|PL/I}}: correct lang tags
(undo; too complicated for no obvious gain) |
Walterpachl (talk | contribs) m (→{{header|PL/I}}: correct lang tags) |
||
Line 1,308:
=={{header|PL/I}}==
<lang
declare n fixed binary (31);
declare v(2*n+1) bit(1);
Line 1,338:
602 640 679 719 760 802 845 889 935 982
</pre>
<lang pli>ffs: procedure (n) returns (fixed binary (31));
declare n fixed binary (31);
declare v(2*n+1) bit(1);
Line 1,370:
</pre>
Verification using the above procedures:
<lang pli>
Dcl t(1000) Bit(1) Init((1000)(1)'0'b);
put skip list ('Verification that the first 40 FFR numbers and the first');
|