自己的版本关于真假问题的修改
来源:互联网 发布:popcom软件下载 编辑:程序博客网 时间:2024/04/30 08:10
(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 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 iszero
(lambda (n)
(n (lambda (x) true) false)
)
)
( (myif (iszero zero) ) 'a 'b)
( (myif (iszero one) ) 'a 'b)
( (myif (iszero two) ) 'a 'b)
( (myif (iszero three) ) 'a 'b)
))
))
- 自己的版本关于真假问题的修改
- C 关于真假的判断
- SVN 多人修改,如何管理 关于版本的问题
- C语言中关于真假的处理
- 关于人事说话真假问题
- 关于Jboss版本的问题!
- 关于Jboss版本的问题!
- 关于Jboss版本的问题!
- 关于Eclipse版本的问题
- 关于JDK版本的问题
- 关于aix版本的问题
- 关于Linux的版本问题
- 关于编译版本的问题
- 关于storm版本的问题
- 辨别发票的真假
- 真假100的鉴别
- MX360的真假
- 判断命题的真假
- apache上配置多虚拟主机
- resolution : "tar: Removing leading `/' from member names"
- java程序员重装系统
- 常用dos
- apache上配置多虚拟主机
- 自己的版本关于真假问题的修改
- 用友通版本年结简要说明
- Java虚拟机JVM内存分区及代码执行机制
- 用友通版本年结简要说明
- 用友通版本年结简要说明
- 用友通版本年结简要说明
- 用友通版本年结简要说明
- C#采集类
- 总结ajax基础