Perfect numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 733: / Line 733: @@
 =={{header|J}}==
-<lang j>is_perfect=: +: = >:@(#. {.)/.~&.q: ::0:</lang>
+<lang j>is_perfect=: +: = >:@(#. {.)/.~&.q:@(6&>.)</lang>
 Examples of use, including extensions beyond those assumptions:
 <lang j>   is_perfect 33550336
-   }.I. is_perfect"0 i. 100000
+   I. is_perfect i. 100000
 28 496 8128
@@ Line 745: / Line 745: @@
 11 12 13 14 15 16 17 18 19
 21 22 23 24 25 26 27 28 29
+   is_perfect zero_through_twentynine
-   is_pos_int=: 0&< *. ]=>.
-   (is_perfect"0 *. is_pos_int) zero_through_twentynine
 0 0 0 0 0 1 0 0 0
 0 0 0 0 0 0 0 0 0