Ulam numbers: Difference between revisions

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

edits