Abundant, deficient and perfect number classifications: Difference between revisions
Content added Content deleted
(add picolisp) |
m (→{{header|PicoLisp}}: add comment) |
||
| Line 890: | Line 890: | ||
(inc 'D (pop 'L)) ) ) |
(inc 'D (pop 'L)) ) ) |
||
(accud 'R N1) |
(accud 'R N1) |
||
(if |
(if # my dirty hack against N = 1 |
||
(and |
(and |
||
(not (cdr R)) |
(not (cdr R)) |
||