(use pre-sicp) (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (if (element-of-set? x set) set (cons x set))) (let ((set '(1 2 3 4 5))) (pri…

何も表示しない関数を作った。(置換しておくと便利かもしれない。) (define (null-print x . y)) ;;(replase-string "print" "null-print")のようにして使う。 .emacsに追加した。 (add-hook 'scheme-mode-hook '(lambda () (define-key scheme-mode-map "\C…