Abundant, deficient and perfect number classifications: Difference between revisions
Content added Content deleted
(→{{header|PicoLisp}}: simpler) |
Simple9371 (talk | contribs) (Added Powershell code...) |
||
Line 984: | Line 984: | ||
</pre> |
</pre> |
||
=={{header|Powershell}}== |
|||
<lang powershell>new-variable deficient -value 0 |
|||
new-variable perfect -value 0 |
|||
new-variable abundant -value 0 |
|||
new-variable sum |
|||
for($i=1;$i -le 20000;$i++){ |
|||
$sum=0 |
|||
for($n=1;$n -le [System.Math]::Floor([System.Math]::Sqrt($i));$n++){ |
|||
if($i%$n -eq 0){ |
|||
$sum+=($i/$n) |
|||
if($i/$n -ne $n) {$sum+=$n} |
|||
} |
|||
} |
|||
$sum-=$i |
|||
if($sum -lt $i){ |
|||
$deficient++ |
|||
} |
|||
elseif($sum -eq $i){ |
|||
$perfect++ |
|||
} else { |
|||
$abundant++ |
|||
} |
|||
} |
|||
Write-Host "Deficient = $deficient" |
|||
Write-Host "Perfect = $perfect" |
|||
Write-Host "Abundant = $abundant"</lang> |
|||
{{Out}} |
|||
<pre>Deficient = 15043 |
|||
Perfect = 4 |
|||
Abundant = 4953</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |