Return to Revisions

3 of 4

deleted 177 characters in body

edited Jan 16, 2018 at 17:25

edited Jan 16, 2018 at 17:25

R, 62 bytes

function(a,b)sum(which(!a%%1:a))-a==b|sum(which(!b%%1:b))-b==a

returns TRUE for amicable, FALSE for not.

answered Jan 16, 2018 at 17:06