DAY 13

TXRという言語があります。
テキスト操作言語らしいです。
メインの言語と、その中に組込まれたLispがあって、今回はLispの方でQuineを書きました。

ドキュメントが900ページくらいあるPDFか、それを1ページにまとめたHTMLくらいしかなく読むことが困難なので、適当にRosseta Codeの実装を見ながらCommon Lispっぽい言語だと当たりを付けて書きました。
つらかった。

(let ((s "(let ((s ~s)) (format t s s) (put-line))")) (format t s s) (put-line))

実行は txr コマンドに渡します。

$ txr quine.tl | diff quine.tl -

疲れてるので今日はこんなところで。