今度はソートされている集合の話 (use pre-sicp) (define (element-of-set? x set) (cond ((null? set) #f) ((= x (car set) #t)) ((< x (car set)) #f) (else (element-of-set? x (cdr set))))) (define (intersection-set set1 set2) (if (or (null? set1)…

ここからhttp://q.hatena.ne.jp/1137478760 このサイトを発見！。便利そうなので少しいじって導入。 http://www-tsujii.is.s.u-tokyo.ac.jp/~yoshinag/tips/elisp_tips.html#buffer 変えたところ。 バッファ間の移動する処理に名前をつけた goto-prev-buffer…