Perfect numbers: Difference between revisions
Content deleted Content added
Added Bracmat |
Add in Axiom task |
||
Line 87:
496
8128</lang>
=={{header|Axiom}}==
Custom function:
<lang Axiom>perfect?(n:Integer):Boolean == reduce(+,divisors n) = 2*n</lang>
Examples (testing 496, testing 128, finding all perfect numbers in 1...10000):
<lang Axiom>perfect? 496
perfect? 128
[i for i in 1..10000 | perfect? i]</lang>
gives back:
<lang Axiom>true
false
[6,28,496,8128]</lang>
=={{header|BASIC}}==
| |||