R, 6267 bytes
function(a,b)sum(which(!a%%1:a))-a==b|suma==b&sum(which(!b%%1:b))-b==ab==a&b!=a
returns TRUE for amicable, FALSE for not.
R, (削除) 60 (削除ここまで) 5362 bytes
function(a,b)sum(which(!a%%1:a))==sum-a==b|sum(which(!b%%1:b))-b==a
returns TRUE for amicable numbers, FALSE otherwise. which(!a%%1:a) computes the divisors of a, including a itself. Since sum(which(!a%%1:a))==a+b if and only if a,b are amicable, we just check if the divisor sums are equalfor not.
R, (削除) 60 (削除ここまで) 53 bytes
function(a,b)sum(which(!a%%1:a))==sum(which(!b%%1:b))
returns TRUE for amicable numbers, FALSE otherwise. which(!a%%1:a) computes the divisors of a, including a itself. Since sum(which(!a%%1:a))==a+b if and only if a,b are amicable, we just check if the divisor sums are equal.
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.
R, 60(削除) 60 (削除ここまで) 53 bytes
function(a,b)sum(which(!a%%1:a))-b-a|sum==sum(which(!b%%1:b))-b-a
returns FALSETRUE for amicable numbers, TRUEFALSE otherwise. which(!a%%1:a) computes the divisors of a, including a itself. Hence,Since sum(which(!a%%1:a))==a+b if and only if a,b are amicable, and likewise for b. Since zero is falsey in R and nonzero is truthy, we can use arithmetic and | to combine them, yieldingjust check if the inverted resultdivisor sums are equal.
R, 60 bytes
function(a,b)sum(which(!a%%1:a))-b-a|sum(which(!b%%1:b))-b-a
returns FALSE for amicable numbers, TRUE otherwise. which(!a%%1:a) computes the divisors of a, including a itself. Hence, sum(which(!a%%1:a))==a+b if and only if a,b are amicable, and likewise for b. Since zero is falsey in R and nonzero is truthy, we can use arithmetic and | to combine them, yielding the inverted result.
R, (削除) 60 (削除ここまで) 53 bytes
function(a,b)sum(which(!a%%1:a))==sum(which(!b%%1:b))
returns TRUE for amicable numbers, FALSE otherwise. which(!a%%1:a) computes the divisors of a, including a itself. Since sum(which(!a%%1:a))==a+b if and only if a,b are amicable, we just check if the divisor sums are equal.