Skip to main content
added 1 character in body
Source Link
Giuseppe
  • 29.4k
  • 3
  • 33
  • 106

R, 3333 29 bytes

!2*(n=scan())-sum(which(!n%%1x=1:n))%*%!n%%x 

Try it online!Try it online!

Returns TRUE for perfect numbers ansand FALSE for imperfect ones.

R, 33 bytes

!2*(n=scan())-sum(which(!n%%1:n)) 

Try it online!

Returns TRUE for perfect numbers ans FALSE for imperfect ones.

R, 33 29 bytes

!2*(n=scan())-(x=1:n)%*%!n%%x 

Try it online!

Returns TRUE for perfect numbers and FALSE for imperfect ones.

Source Link
Giuseppe
  • 29.4k
  • 3
  • 33
  • 106

R, 33 bytes

!2*(n=scan())-sum(which(!n%%1:n)) 

Try it online!

Returns TRUE for perfect numbers ans FALSE for imperfect ones.