higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ scheme On Lispの「18.4 マッチング」に出てきたコードを理解し、Scheme で書き直す。 本丸の match は後回しにし、varsym? と binding を書く。 varsym? varsym? は簡単。 x がパターン変数かどうかを返す。あらかじめテストを書いておいた。 (define (varsym? x) (and (symbol? x) (char=? (string-ref (symbol->string x) 0) #\?))) (assert-check-true "varsym?" (varsym? '?x) (varsym? '?y) (varsym? '?abc)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20070831%2F1188575431" title=" マクロのマッチングを実装しよう - 2. On Lisp のマッチングコード - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-08-31 00:50:31 rich https://higepon.hatenablog.com/entry/20070831/1188575431 1.0 100%