Pierpont primes: Difference between revisions
Content added Content deleted
(Added Alghol 68) |
(→{{header|ALGOL 68}}: Removed unused declaration) |
||
Line 94: | Line 94: | ||
IF last min > three smooth limit THEN |
IF last min > three smooth limit THEN |
||
# shuffle the sequence down, over the now unused bits # |
# shuffle the sequence down, over the now unused bits # |
||
INT last max = IF last2 > last3 THEN last2 ELSE last3 FI; |
|||
INT new pos := 0; |
INT new pos := 0; |
||
FOR pos FROM last min TO s pos DO |
FOR pos FROM last min TO s pos DO |