xuenima

摘要： (define-macro (switch expr cases) (cons 'cond (map (lambda (case) (cons (eq? (eval expr) (car case)) (cdr case))) cases)) ) 这段代码是一个用于 Scheme 语言的宏定义，可以 阅读全文

摘要： (define-macro (def func args body) `(define ,(cons func args) ,body)) 分析： 定义一个万能的函数定义，那就要模拟函数定义的样子。ok，函数定义是什么样子的呢？ eg: (define (filter-lst fn lst) (if 阅读全文