Perfect numbers: Difference between revisions
Content added Content deleted
(Undo revision 28273 by 99.146.99.226 (Talk)Bad grammar and unnecessary) |
Underscore (talk | contribs) (Added Common Lisp.) |
||
| Line 117: | Line 117: | ||
} |
} |
||
</lang> |
</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}}== |
=={{header|D}}== |
||