Anonymous user
Perfect numbers: Difference between revisions
→{{header|Clojure}}
(D code converted to D2) |
|||
Line 217:
(== (reduce + (proper-divisors n)) n)
)</lang>
{{trans|Haskell}}
<lang lisp>(defn perfect? [n]
(= n (reduce + (for [i (range 1 n) :when (= 0 (mod n i))] i))))</lang>
=={{header|Common Lisp}}==
| |||