Anonymous user
Perfect numbers: Difference between revisions
Added PicoLisp
(→{{header|PureBasic}}: Added PureBasic) |
(Added PicoLisp) |
||
Line 424:
$n == sum(grep {$n % $_ == 0} 1..$n-1);
}</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de perfect (N)
(let C 0
(for I (/ N 2)
(and (=0 (% N I)) (inc 'C I)) )
(= C N) ) )</lang>
=={{header|PureBasic}}==
<lang PureBasic>Procedure is_Perfect_number(n)
| |||