gauche で スクリプト
マクロの練習
完全数を探してみる
奇数の完全数ってないらしい。 探してみようかな。 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 (division-list num)) num)))) (define (division-list n) (define (div-support n num) (cond ((zero? n) '())