racket 宏使用示例代码
代码语言:racket
所属分类:其他
代码描述:racket 宏使用示例代码
代码标签: 示例
下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开
#lang racket (define-syntax-rule (while condition body ...) (let loop () (when condition body ... (loop)))) (let ([i 0]) (while (< i 10) (displayln i) (set! i (add1 i)))) ;; Macros are hygienic, you cannot clobber existing variables! (define-syntax-rule (swap! x y) ; -! is idiomatic for mutation (let ([tmp x]) (set! x y) (set! y tmp))) (define tmp 2) (define .........完整代码请登录后点击上方下载按钮下载查看
网友评论0