Perfect numbers: Difference between revisions

→‎E: new example
m (underscore to space)
(→‎E: new example)
Line 202:
}
</lang>
 
=={{header|E}}==
 
<lang e>pragma.enable("accumulator")
def isPerfectNumber(x :int) {
var sum := 0
for d ? (x % d <=> 0) in 1..!x {
sum += d
if (sum > x) { return false }
}
return sum <=> x
}</lang>
 
=={{header|Forth}}==