Perfect numbers: Difference between revisions

Content added Content deleted
m (Henry's shortened expression)
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.