RosettaCodeData/Task/Perfect-numbers/Axiom/perfect-numbers-2.axiom
2019-09-12 10:33:56 -07:00

7 lines
194 B
Text

)abbrev package TESTP TestPackage
TestPackage() : withma
perfect?: Integer -> Boolean
==
add
import IntegerNumberTheoryFunctions
perfect? n == reduce("+",divisors n) = 2*n