Perfect numbers: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 60}}: minor variable rename) |
m (→{{header|S-BASIC}}: minor variable rename) |
||
Line 4,280: | Line 4,280: | ||
$lines |
$lines |
||
rem - return |
rem - return n mod m |
||
function mod( |
function mod(n, m = integer) = integer |
||
end = |
end = n - m * (n/m) |
||
rem - return true if n is perfect, otherwise false |
rem - return true if n is perfect, otherwise false |