Perfect numbers: Difference between revisions
Content added Content deleted
(→{{header|Scheme}}: ++ smalltalk) |
(→{{header|Smalltalk}}: + Tcl) |
||
| Line 333: | Line 333: | ||
<lang smalltalk>1 to: 9000 do: [ :p | (p isPerfect) ifTrue: [ p printNl ] ]</lang> |
<lang smalltalk>1 to: 9000 do: [ :p | (p isPerfect) ifTrue: [ p printNl ] ]</lang> |
||
=={{header|Tcl}}== |
|||
<lang tcl> |
|||
proc perfect n { |
|||
set sum 0 |
|||
for {set i 1} {$i <= $n} {incr i} { |
|||
if {$n % $i == 0} {incr sum $i} |
|||
} |
|||
expr {$sum == 2*$n} |
|||
} |
|||
</lang> |
|||