Perfect numbers: Difference between revisions

Content deleted Content added
Rdm (talk | contribs)
m Henry's shortened expression
Rdm (talk | contribs)
Line 733: Line 733:


=={{header|J}}==
=={{header|J}}==
<lang j>is_perfect=: +: = (#. %~)@(,{.)/.~&.q: ::0:</lang>
<lang j>is_perfect=: +: = >:@(#. {.)/.~&.q: ::0:</lang>
The program defined above, like programs found here in other languages, assumes that the input will be a scalar positive integer.
The program defined above, like programs found here in other languages, assumes that the input will be a scalar positive integer.