562a9a5 ^
1 2 3 4 5 6
(define (perfect? n) (define (iter i sum) (cond ((= i n) sum) ((= 0 (remainder n i)) (iter (1+ i) (+ sum i))) (else (iter (1+ i) sum)) )) (= n (iter 1 0)) )