ASOCS

摘要： ;1.23(define smallest-divisor (lambda (n) (find-divisor n 2)))(define find-divisor (lambda (n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (else (find-divisor n (next test-divisor))))))(define next (lambda (n) (if (= n 2) ... 阅读全文