码迷,mamicode.com
首页 > 其他好文 > 详细

[mess] [chez] 通过 define-syntax 定义 let*

时间:2018-09-03 22:00:28      阅读:206      评论:0      收藏:0      [点我收藏+]

标签:syn   isp   define   ESS   sch   mes   play   通过   lis   

(define-syntax let*
  (syntax-rules ()
    [(_ () e1 e2 ...) (let () e1 e2 ...)]
    [(_ ((i1 v1) (i2 v2) ...) e1 e2 ...)
     (let ([i1 v1])
       (let* ([i2 v2] ...) e1 e2 ...))]))

(let* ([a 11] [b (+ a 10)] [c (* b 2)])
  (display (list a b c))) ;=> 11 21 42

[mess] [chez] 通过 define-syntax 定义 let*

标签:syn   isp   define   ESS   sch   mes   play   通过   lis   

原文地址:https://www.cnblogs.com/wander4096/p/9581213.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!