2015-11-19 SICP 問題 3.16 scheme SICP ポインタが同じ構造を指していた場合に重複して数えてしまう. さらに,循環リストの場合は結果が返ってこない. (define (count-pairs x) (if (not (pair? x)) 0 (+ (count-pairs (car x)) (count-pairs (cdr x)) 1)))