問題2.7 (define (lower-bound x) (car x)) (define (upper-bound x) (cdr x)) 問題2.8 (define (sub-interval x y) (make-interval (- (lower-interval x) (lower-interval y)) (- (upper-interval x) (upper-interval y)))) 問題2.9〜問題2.16 段々こみい…

この節では、リストを操作する手続きを作成する。例題として、 リストの各要素にアクセスする手続き(配列のように扱う) list-ref リストの要素の個数をかえす手続き length 二つのリストを連結する手続き append が、提示してあった。 これらの手続きを利用…

コマンド解析についてのソースを探ってた時に、 (define (main args) (let1 predef-syms '() (let-args (cdr args) ((#f "D=s" => (lambda (sym) (push! predef-syms sym))) (else _ (usage)) . args) (match args ((file) (do-it file predef-syms)) (_ (us…