インストールしてみる。 とりあえずビルド。 wget http://practical-scheme.net/vault/Gauche-0.9_rc2.tgz tar zxvf Gauche-0.9_rc2.tgz cd Gauche-0.9_rc2 gauche-config --reconfigure | sh make テスト make test cat test.record # Total: 9994 tests, 9…

http://d.hatena.ne.jp/whitypig/20091102/1257187523 with-temp-bufferとre-search-backwardを組み合わせると惜しい結果にはなる。 一文字ずれてしまう。 (defvar str "This is a foo that is not same as the foo appeared in that sentence written by fo…

e.g. ;;メモ化マクロ(define-memoize)を利用 (define-memoize (tarai (x 'eqv?) (y 'eqv?) (z 'eqv?)) (if (<= x y) y (tarai (tarai (1- x) y z) (tarai (1- y) z x) (tarai (1- z) x y)))) ;;普通の定義 (define (tarai2 x y z) (if (<= x y) y (tarai2 (t…