2015-11-19 SICP 問題 3.14 scheme SICP mysteryはreverseと同じ結果を返し,xを先頭の要素だけを取り出したリストに置き換える. (define (mystery x) (define (loop x y) (if (null? x) y (let ((temp (cdr x))) (set-cdr! x y) (loop temp x)))) (loop x '()))