Amicable pairs: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,975: / Line 4,975: @@
 /* TEST EACH PAIR */
 DO I=2 TO 20$000;
-    DO J=I+1 TO 20$000;
+    J = DIVSUM(I);
-        IF DIV$SUM(I)=J AND DIV$SUM(J)=I THEN DO;
+    IF J > I AND J <= 20$000 THEN DO;
+        IF DIV$SUM(J) = I THEN DO;
             CALL PRINT$NUMBER(I);
             CALL PRINT(.', $');