2010-01-12から1日間の記事一覧
とても汚い感じだ。 S=<
;; 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)…