問題2.77 まず、複素数の選択肢を complex パッケージに登録していない場合をトレースしてみる。 (use slib) (require ‘trace) (define z (make-complex-from-real-imag 3 4)) (trace magnitude) (trace get) (trace apply-generic) (trace type-tag) (magn…続きを読む
問題2.75 (define (make-from-mag-ang r a) (define (dispatch op) (cond ((eq? op ‘real-part) (* r (cos a))) ((eq? op ‘imag-part) (* r (sin a))) ((eq? op ‘mgnitude) r) ((eq? op ‘angle) a) (else (error "…続きを読む
JavaScript を使わずに CSS のみで z-index と 背景画像を使って Rollover（ロールオーバー）画像置換を行うメモ。 text-indent を使ってテキストを不可視領域に移動させて画像置換（Image Replacement）を行うと、画像非表示で CSS 有効の場合に何も表示されない問題があるので、z-index を使って画像置換を行ってみた。 次のスクリーンショット…続きを読む
問題2.74 事業所レコードの構造を次のようにする。 ; 事業所レコードの構造（東京事業所） (type-tag (record1) (record2) …) (tokyo (isono nakano1-2 150000) (nakajima setagaya2-1 250000) …) ; 従業員レコードの構造（東京事業所） (name address salary) (isono na…続きを読む
現在表示中のタブの HTML ドキュメントでの互換・標準モード（document.compatMode）の状態を Firefox のステータスバー上に表示する userChrome.js スクリプトを作りました。 CSS1Compat の場合 "標準" と、 BackCompat の場合 "互換" と表示します。 スクリプトファイルは statusbarCo…続きを読む
問題2.73 2.3.2 節の記号微分を行うプログラム。 (define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var)…続きを読む
問題2.71 (define (expt-pair pairs) (let ((n (length pairs))) (define (iter pairs) (let ((i (- n (length pairs)))) (if (null? pairs) ‘() (cons (list (car pairs) (expt 2 i)) (iter (cdr pairs)))))) (iter p…続きを読む
MacOSX で MacPorts から ssh がインストールされている場合、 MacPorts 版の ssh がエラーが出て使えなかったので直接 MacOSX 標準の ssh を指定して実行した。 $ which ssh /opt/local/bin/ssh $ ssh username@hostname percent_expand: NULL replacement $ /usr/bin/…続きを読む
問題2.70 (define rock-code ‘((A 2) (BOOM 1) (GET 2) (JOB 2) (NA 16) (SHA 3) (YIP 9) (WAH 1))) rock-code gosh> ((A 2) (BOOM 1) (GET 2) (JOB 2) (NA 16) (SHA 3) (YIP 9) (WAH 1)) (define rock-huffman-tre…続きを読む
問題2.69 対のリストとその順序づけられたリストが以下の場合… (make-leaf-set ‘((A 4) (B 2) (C 1) (D 1))) gosh> ((leaf D 1) (leaf C 1) (leaf B 2) (leaf A 4)) 次のような形で… 以下のような Huffman木 を生成する手続きを考える。 ((leaf A 4) ((leaf…続きを読む