Factors of an integer: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,162: / Line 2,162: @@
 dup /mod swap 0= IF
             over
-            r> r@ execute >r
+            r> r@ execute
-            r> r@ execute >r
+               r@ execute >r
         ELSE
             drop