Anonymous user
Perfect numbers: Difference between revisions
→{{header|Smalltalk}}: + Tcl
(→{{header|Scheme}}: ++ smalltalk) |
(→{{header|Smalltalk}}: + Tcl) |
||
Line 333:
<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>
|