Proper divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 889: / Line 889: @@
             (inc 'D (pop 'L)) ) )
       (accu1 'R N)
-      (apply * (mapcar cdr R)) ) )
+      (dec (apply * (mapcar cdr R))) ) )
 (bench
    (println
       (maxi
          factor
-         (range 1 20000) ) ) )</lang>
+         (range 1 20000) )
+      @@ ) )</lang>
 Output:
 <pre>