真假3
来源:互联网 发布:2016最新网络歌曲大全 编辑:程序博客网 时间:2024/04/27 17:30
(mymachine (
(defmacro demoinside (expr)
(print expr)
)
(defmacro mymachineinside (exprs)
`(if ,(eq exprs nil)
nil
(progn
(print (demoinside ,(car exprs)) )
(mymachineinside ,(cdr exprs) )
)
)
)
(mymachineinside (
(defmacro demo (expr)
(print expr)
)
(defmacro mymachine (exprs)
`(if ,(eq exprs nil)
nil
(progn
(demo ,(car exprs))
(mymachine ,(cdr exprs) )
)
)
)
(setq true
(lambda (u v)
u
)
)
(setq false
(lambda (u v)
v
)
)
(setq myif
(lambda (condition )
(lambda (then else)
(condition then else)
)
)
)
( ( myif true) 'a 'b )
( ( myif false) 'a 'b )
(setq zero
(lambda (s z)
z
)
)
(setq one
(lambda (s z)
(s (zero s z) )
)
)
(setq two
(lambda (s z)
(s (one s z) )
)
)
(setq three
(lambda (s z)
(s (two s z) )
)
)
(setq wrapvalue
(lambda ( step)
(lambda (u v)
(step u v)
)
)
)
(setq chenbing
(lambda (value )
(cons 'chenbing value)
)
)
(zero chenbing nil)
(one chenbing nil)
(two chenbing nil)
(three chenbing nil)
))
))