Perfect numbers: Difference between revisions
Content added Content deleted
m (moved Perfect Numbers to Perfect numbers) |
(FALSE) |
||
Line 208: | Line 208: | ||
<lang erlang>is_perfect(X) -> |
<lang erlang>is_perfect(X) -> |
||
X == lists:sum([N || N <- lists:seq(1,X-1), X rem N == 0]).</lang> |
X == lists:sum([N || N <- lists:seq(1,X-1), X rem N == 0]).</lang> |
||
=={{header|FALSE}}== |
|||
<lang false>[0\1[\$@$@-][\$@$@$@$@\/*=[@\$@+@@]?1+]#%=]p: |
|||
45p;!." "28p;!. { 0 -1 }</lang> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |