無限cxr 「carとcdrの合成 (car, caddr, cadddr,...)って4段階までしか無いのか」ってツイートを見かけたので、無限に合成されるのを作ってみた。 あらかじめ定義しておかなくても、ソースコードを読んだ時点で展開されるので、 いくらでも長いc[ad]+rを使える。 これを使えば『Land of Lisp』のビリーとボブの会話も実行できるぞ! (setf *readtable* *cxr-readtable*) ;;「ジブラルドルのエメラルド」が今週末に超特急列車で運搬される (defparameter *train* '((controls) (empty security-camera) (gem) (empty guard1 empty empty guard2) (passenger-seat passenger-seat passenger-seat pas
![Island Life](https://cdn-ak-scissors.b.st-hatena.com/image/square/9782350b2b09af9927d4a1af1447f268b8238901/height=288;version=1;width=512/https%3A%2F%2Fblog.practical-scheme.net%2Fheader-og.png)