完全数を探してみる
奇数の完全数ってないらしい。
探してみようかな。
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)
見つかったらほうこくしますw
moremagic
2017-06-29