練習問題をやってみた。 ;; リストの長さを計算する (define (length lis) (if (null? lis) 0 (+ (length (cdr lis)) 1))) ;; リストから条件に合うものを抽出してリストにする (define (scan pred lis) (cond [(null? lis) '()] [(pred (car lis)) (append2…