Skip to main content
Code Golf

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

6
  • \$\begingroup\$ I think you can use -:[:|.(1#.i.*0=i.|])”0 or something akin to it. The divisor sum (rightmost verb) is taken from mile’s comment on our divisor sum question. Edit: with a different quotation mark since I’m on mobile. \$\endgroup\$ Commented Jan 16, 2018 at 17:30
  • \$\begingroup\$ Apparently they need to be not equal so prepend a ~:/*]. \$\endgroup\$ Commented Jan 16, 2018 at 18:51
  • \$\begingroup\$ Actually I think you can instead do ~.-:... (match with dedpulicated input), which I stole from the Jelly answer. \$\endgroup\$ Commented Jan 16, 2018 at 19:02
  • \$\begingroup\$ I removed an extra -:-match in your code, updated the bytecount, and added a TIO link. Hope that's OK by you. Feel free to roll back if it isn't (but the solution prior had a domain error you'd want to fix). \$\endgroup\$ Commented Jan 17, 2018 at 2:30
  • 3
    \$\begingroup\$ 20 bytes with >:@#.~/.~&.q:-:~:*+/ \$\endgroup\$ Commented Jan 17, 2018 at 12:16