trotr https://blog.hatena.ne.jp/trotr/ trotrの日記 https://trotr.hatenadiary.org/ ;; http://d.hatena.ne.jp/knight_5/20100111/1263197803 ちょっとだけ解説。 (define (f n) (let1 xs '(")") (set-cdr! xs xs) (let/cc r (fold (lambda (x c) (display x) (if (= c 0) (r 0) (- c 1))) n `(: - ,@xs))))) (dotimes (i 64) (f i) (newline)) ポイントは2つ。循環リストを作ることと継続を利用していること。 と言っても、継続もそんなに難しい使い方をしているのではなく、 単に、ルー… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftrotr.hatenadiary.org%2Fentry%2F20100112" title=" - trotrの日記" 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 2010-01-12 00:00:00 rich https://trotr.hatenadiary.org/entry/20100112 1.0 100%