完全数を探してみる

奇数の完全数ってないらしい。
探してみようかな。

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) '())
      ((zero? (modulo num n))
        (cons n (div-support (sub1 n) num)))
      (else
        (div-support (sub1 n) num))))
  (div-support (sub1 n) n))


(define (find-perfect n)
  (cond
    ((perfect-number n) (print n)(print "/")))
  (cond
    ((zero? n) #f)
    (else
       (find-perfect (add1 n)))))

(division-list 28)
(perfect-number 28)

(find-perfect 1)

見つかったらほうこくしますｗ