Chinaunix首页 | 论坛 | 博客
  • 博客访问: 70758
  • 博文数量: 7
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 87
  • 用 户 组: 普通用户
  • 注册时间: 2014-12-06 22:00
文章分类

全部博文(7)

文章存档

2019年(4)

2018年(1)

2014年(2)

我的朋友

分类: LINUX

2014-12-08 23:11:09

我写的
((lambda () ((lambda (x f) (f x x))
(quote
((lambda () ((lambda (x f) (f x x))
(quote
)
(lambda (l x)
(cons (cons (car (car l)) (cons (car (cdr (car l))) (cons (cons (car (car (cdr (cdr (car l))))) (cons (cons (car (car (cdr (car (cdr (cdr (car l))))))) (cons x (quote ()))) (cdr (cdr (car (cdr (cdr (car l)))))))) (quote ())))) (quote ()))))))
)
(lambda (l x)
(cons (cons (car (car l)) (cons (car (cdr (car l))) (cons (cons (car (car (cdr (cdr (car l))))) (cons (cons (car (car (cdr (car (cdr (cdr (car l))))))) (cons x (quote ()))) (cdr (cdr (car (cdr (cdr (car l)))))))) (quote ())))) (quote ()))))))

抄的
((lambda (x) (list x (list (quote quote) x))) (quote (lambda (x) (list x (list (quote quote) x)))))

改的
((lambda (y x) (list x (+ y 1) (list (quote quote) x))) 0 (quote (lambda (y x) (list x (+ y 1) (list (quote quote) x)))))

((lambda (y x) (list x (if (= (+ y 1) 7) 0 (+ y 1)) (list (quote quote) x))) 0 (quote (lambda (y x) (list x (if (= (+ y 1) 7) 0 (+ y 1)) (list (quote quote) x)))))

阅读(2494) | 评论(0) | 转发(0) |
0

上一篇:scheme写的快速幂

下一篇:C写的贪吃蛇

给主人留下些什么吧!~~