練習問題4.41 (define (generate-list n) (define (pow n k) (if (= k 0) 1 (* n (pow n (- k 1))) ) ) (define (int-to-list m n k) (if (= k 0) (list) (cons (remainder m n) (int-to-list (/ (- m (remainder m n)) n) n (- k 1))) ) ) (define (list-ge…

練習問題4.38 #lang racket (require sicp-pict) (define (require p) (if (not p) (amb) 0)) (define (distinct? items) (cond ((null? items) true) ((null? (cdr items)) true) ((member (car items) (cdr items)) false) (else (distinct? (cdr items ))…