Очень нужна корректировка кода

[MrOw]

12.jpg

begin

(define (amicables a b) 
(filter amicables? (unique-pairs a b))) 

(define (amicables? pair) 
(let ((first (car pair)) 
(second (cadr pair))) 
(and (= (sum-of-divisors first) second) 
(= first (sum-of-divisors second))))) 

(define (sum-of-divisors n) 
(accumulate + 0 (divisors n))) 

(define (divisors n) 
(filter (lambda (d) (= (remainder n d) 0)) 
(enumerate-interval 1 (/ n 2)))) 

(define (unique-pairs a b) 
(flatmap (lambda (j) 
(map (lambda (i) (list j i)) 
(enumerate-interval a (- j 1)))) 
(enumerate-interval a b))) 

(define (flatmap proc seq) 
(accumulate append null (map proc seq))) 

(define (accumulate op initial sequence) 
(if (null? sequence) 
initial 
(op (car sequence) 
(accumulate op initial (cdr sequence))))) 

(define (enumerate-interval start end) 
(if (> start end) 
null 
(cons start (enumerate-interval (+ start 1) end))))