javascripter https://blog.hatena.ne.jp/javascripter/ 素人がプログラミングを勉強していたブログ https://javascripter.hatenablog.com/ gauche マクロおもしろいなあ。 #!/usr/bin/env gosh (define-macro (ca..r n) (string->symbol (make-string n #\a)) `(define ( ,(string->symbol (string-append "c" (make-string n #\a) "r")) lis) (define (/lis lis i) (if (> i 0) (/lis (car lis) (- i 1)) lis)) (/lis lis ,n))) (ca..r 3) (ca..r 10) (print (caar '((1 . 2) . 3))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjavascripter.hatenablog.com%2Fentry%2F20081008%2F1223458498" title="関数を定義するマクロ - 素人がプログラミングを勉強していたブログ" 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 2008-10-08 18:34:58 rich https://javascripter.hatenablog.com/entry/20081008/1223458498 1.0 100%