Ulam numbers: Difference between revisions
→{{header|ALGOL 68}}: layout
(→{{header|ALGOL 68}}: Tweak comments) |
(→{{header|ALGOL 68}}: layout) |
||
Line 119:
FI;
FOR p TO u count - 1 DO
INT
IF pi > UPB ulam THEN
# need a bigger ulam buffer #
Line 127:
ulam := new ulam
FI;
CHAR upi
IF upi = unused
THEN ulam[ pi ] := one # u[ p ] + i is unique so far #
|