Amicable pairs: Difference between revisions
Content added Content deleted
(add RPL) |
m (→{{header|ALGOL 60}}: corrected minor typo) |
||
Line 538: | Line 538: | ||
comment - return n mod m; |
comment - return n mod m; |
||
integer procedure mod(n, m); |
integer procedure mod(n, m); |
||
value n, |
value n, m; integer n, m; |
||
begin |
begin |
||
mod := n - m * entier(n / m); |
mod := n - m * entier(n / m); |