Anonymous user
Perfect numbers: Difference between revisions
no edit summary
No edit summary |
|||
Line 615:
(and (=0 (% N I)) (inc 'C I)) )
(= C N) ) )</lang>
=={{header|PowerShell}}==
<lang powershell>Function IsPerfect($n)
{
$sum=0
for($i=1;$i-lt$n;$i++)
{
if($n%$i -eq 0)
{
$sum += $i
}
}
return $sum -eq $n
}
Returns "True" if the given number is perfect and "False" if it's not.</lang>
=={{header|Prolog}}==
| |||