マクãƒå±•é–‹ã«å¯¾ã™ã‚‹å…ˆå…¥è¦³ - ãƒã‚ン煮込ã¿ãƒãƒ¼ã‚ºãƒŸãƒƒã‚¯ã‚¹ï¼”辛プãƒã‚°ãƒ©ãƒžãŒã‚³ãƒ¼ãƒ‰ä¸ã«æ›¸ã„ãŸãƒžã‚¯ãƒ マクãƒå±•é–‹ã«ã‚ˆã£ã¦å‡ºç¾ã™ã‚‹ãƒžã‚¯ãƒ ã™ã¹ã¦ãŒå±•é–‹ã•ã‚ŒãŸå¾Œã«è©•ä¾¡ã•ã‚Œã‚‹ã‚‚ã‚“ã ã¨ã„ã†å…ˆå…¥è¦³ãŒã‚ã£ãŸã€‚ ã ã‘ã©ã€id:yagiey:20100223:1266942998ã‚ãŸã‚Šã‹ã‚‰ãã®å…ˆå…¥è¦³ãŒç–‘ã‚ã—ãæ„Ÿã˜å§‹ã‚ãŸã€‚ 例ãˆã°æ¬¡ã®ã‚ˆã†ãªå ´åˆ gosh> (define-macro (_if test e1 . e2) `(if ,test ,e1 . ,e2)) #<undef> gosh> (define-macro (_or . args) (cond ((null? args) #f) ((null? (cdr args)) (car args)) (else (let ((tmp (gensym))) `(let ((,tmp ,(car args))) (_if ,tmp ,tmp (_or . ,(cdr args)))))))) #<undef> gos
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
{{#tags}}- {{label}}
{{/tags}}