CalmoSoft primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 47: / Line 47: @@
             OD;
             IF this prime AND this len > max len THEN
-                # found a longer sequence                                    #
+                max len   := this len; # found a longer sequence             #
-                max len   := this len;
                 max start := this start;
                 max end   := this end;
@@ Line 54: / Line 53: @@
             FI
         FI;
-        # reduce the sequence sum by the start prime                         #
+        # the start prime won't be in the next sequence                      #
         seq sum -:= prime[ this start ]
     OD;