Hofstadter Figure-Figure sequences: Difference between revisions

m
→‎{{header|PL/I}}: correct lang tags
(undo; too complicated for no obvious gain)
m (→‎{{header|PL/I}}: correct lang tags)
Line 1,308:
 
=={{header|PL/I}}==
<lang PL/Ipli>ffr: procedure (n) returns (fixed binary(31));
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');
2,298

edits