第4問も解けた (use srfi-1) (define (mkstars lst cnt num) (if (= cnt num) lst (mkstars (cons (list (read) (read)) lst) (+ cnt 1) num))) (define (search heiko idogo shashin) (if (lset<= equal? (car idogo) shashin) (car heiko) (search (cdr he…