奇数の完全数ってないらしい。 探してみようかな。DrScheme で実行中・・・ (define (perfect-number num) (define (list-add lat) (cond ((null? lat) 0) (else (+ (car lat) (list-add (cdr lat)))))) (cond ((null? num) #f) ((number? num) (= (list-add…