Anonymous user
Abundant, deficient and perfect number classifications: Difference between revisions
Abundant, deficient and perfect number classifications (view source)
Revision as of 19:20, 29 April 2015
, 9 years ago→{{header|AutoHotkey}}
(rm link) |
|||
Line 80:
_______________________
Totals up to: 20000
Perfect: 4
Abundant: 4953
Deficient: 15043
</pre>
=={{header|AWK}}==
works with GNU Awk 3.1.5 and with BusyBox v1.21.1
<lang AWK>
#!/bin/gawk -f
function sumprop(num, i,sum,root) {
if (num == 1) return 0
sum=1
root=sqrt(num)
for ( i=2; i < root; i++) {
if (num % i == 0 )
{
sum = sum + i + num/i
}
}
if (num % root == 0)
{
sum = sum + root
}
return sum
}
BEGIN{
limit = 20000
abundant = 0
defiecient =0
perfect = 0
for (j=1; j < limit+1; j++)
{
sump = sumprop(j)
if (sump < j) deficient = deficient + 1
if (sump == j) perfect = perfect + 1
if (sump > j) abundant = abundant + 1
}
print "For 1 through " limit
print "Perfect: " perfect
print "Abundant: " abundant
print "Deficient: " deficient
}
</lang>
{{out}}
<pre>
For 1 through 20000
Perfect: 4
Abundant: 4953
| |||