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