Abundant, deficient and perfect number classifications: Difference between revisions
Content deleted Content added
Added True BASIC |
imported>Maxima enthusiast No edit summary |
||
Line 3,593: | Line 3,593: | ||
Perfect 4 |
Perfect 4 |
||
Abundant 4953 |
Abundant 4953 |
||
</pre> |
|||
=={{header|Maxima}}== |
|||
<syntaxhighlight lang="maxima"> |
|||
/* Given a number it returns wether it is perfect, deficient or abundant */ |
|||
number_class(n):=if divsum(n)-n=n then "perfect" else if divsum(n)-n<n then "deficient" else if divsum(n)-n>n then "abundant"$ |
|||
/* Function that displays the number of each kind below n */ |
|||
classification_count(n):=block(makelist(number_class(i),i,1,n), |
|||
[[length(sublist(%%,lambda([x],x="deficient")))," deficient"],[length(sublist(%%,lambda([x],x="perfect")))," perfect"],[length(sublist(%%,lambda([x],x="abundant")))," abundant"]])$ |
|||
/* Test case */ |
|||
classification_count(20000); |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[[15043," deficient"],[4," perfect"],[4953," abundant"]] |
|||
</pre> |
</pre> |
||