ということでちょっとコード書きますよっと。 Scheme手習いから。 (define (insertR new old lat) (cond ((null? lat) '()) (else (cond ((eq? old (car lat)) (cons old (cons new (cdr lat)))) (else (cons old (insertR new old (cdr lat)))))) (define (…