Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|PicoLisp}}: add factorization) |
(→Factorization: fix) |
||
Line 889: | Line 889: | ||
(inc 'D (pop 'L)) ) ) |
(inc 'D (pop 'L)) ) ) |
||
(accu1 'R N) |
(accu1 'R N) |
||
(apply * (mapcar cdr R)) ) ) |
(dec (apply * (mapcar cdr R))) ) ) |
||
(bench |
(bench |
||
(println |
(println |
||
(maxi |
(maxi |
||
factor |
factor |
||
(range 1 20000) ) |
(range 1 20000) ) |
||
@@ ) )</lang> |
|||
Output: |
Output: |
||
<pre> |
<pre> |