一筆書きドラゴン曲線TeX でドラゴン曲線を描こうと思ったのですが、クヌース先生がとっくにやってしまっていて、あろうことか『TeXブック』にまで載せていました。出力結果は『TeXブック』に載っていないので、とりあえず写経して pdftex にかけてみたら、確かにきれいな龍が現れました。 そのクヌース先生のコードですが、実際にドラゴン曲線を描くコードはたったの 2行です。 \def\dragon{\ifnum\n>0{\advance\n-1 \dragon\L\nogard}\fi} \def\nogard{\ifnum\n>0{\advance\n-1 \dragon\R\nogard}\fi} どうやら相互再帰みたいですね。 Scheme で書くならこんな感じでしょうか。 (define (dragon-curve dim) (define (dragon i) (if (> i 0) (append (
