我写的
((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)))))
阅读(2551) | 评论(0) | 转发(0) |
