Perfect numbers: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Underscore (talk | contribs)
845 edits
Added Common Lisp.
Line 162:
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
<lang fortran> FUNCTION isPerfect(n)
LOGICAL :: isPerfect
INTEGER, INTENT(IN) :: n
Line 173:
END DO
IF (factorsum == n) isPerfect = .TRUE.
END FUNCTION isPerfect</lang>
 
=={{header|Haskell}}==
Retrieved from "https://rosettacode.org/wiki/Perfect_numbers"