Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,14 +0,0 @@
|
|||
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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue