Perfect numbers: Difference between revisions
Content deleted Content added
adding maxima |
|||
Line 1,135: | Line 1,135: | ||
n == (1...n).select {|i| n % i == 0}.inject(:+) |
n == (1...n).select {|i| n % i == 0}.inject(:+) |
||
end</lang> |
end</lang> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>for i = 1 to 10000 |
|||
if perf(i) then print i;" "; |
|||
next i |
|||
FUNCTION perf(n) |
|||
for i = 1 TO n - 1 |
|||
IF n MOD i = 0 THEN sum = sum + i |
|||
next i |
|||
IF sum = n THEN perf = 1 |
|||
END FUNCTION</lang> |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |