Perfect numbers: Difference between revisions
Added Common Lisp.
(Undo revision 28273 by 99.146.99.226 (Talk)Bad grammar and unnecessary) |
Underscore (talk | contribs) (Added Common Lisp.) |
||
Line 117:
}
</lang>
=={{header|Common Lisp}}==
{{trans|Haskell}}
<lang lisp>(defun perfectp (n)
(= n (loop for i from 1 below n when (= 0 (mod n i)) sum i)))</lang>
=={{header|D}}==
| |||