(define nil '()) (define (gen-primes limit) (let ((v (make-vector (+ limit 1) 1))) (define (set-not-prime! ini-idx) (define (iter i) (if (> i limit) 'done (begin (vector-set! v i 0) (iter (+ i ini-idx))))) (iter (* ini-idx 2))) (define (in…

(define nil '()) (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (uniq set) (define (iter x s) (if (null? x) s (iter (cdr x) (if (element-of-set? (car x) s) s …