;;2.27 (define (deep-reverse lis) (if (pair? lis) (append (deep-reverse (cdr lis)) (list (deep-reverse (car lis)))) lis)) higeponさんがとってきた解答例では (define (deep-reverse tree) (if (not (pair? tree)) tree (reverse (map deep-reverse …

apt-get install gauche-glでインストールできるが，使おうとすると， libgauche-math3Dがどうかこうとかというエラーがでて使えないので，結局ソースを ./confiure make make installで入れた．

SICPのP.52より (define (my-cons x y) (lambda (m) (m x y))) (define (my-car z) (z (lambda (p q) p))) (define (my-cdr z) (z (lambda (p q) q)))