Anonymous user
Perfect numbers: Difference between revisions
m
→{{header|Fortran}}: lang tag
Underscore (talk | contribs) (Added Common Lisp.) |
m (→{{header|Fortran}}: lang tag) |
||
Line 162:
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
LOGICAL :: isPerfect
INTEGER, INTENT(IN) :: n
Line 173:
END DO
IF (factorsum == n) isPerfect = .TRUE.
END FUNCTION isPerfect</lang>
=={{header|Haskell}}==
| |||