2015/11/19SICP 問題 3.14schemeSICPmysteryは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 '()))