Lisp Scheme Part19 - 暇つぶし2ch

Lisp Scheme Part19 at TECH

114:デフォルトの名無しさん
08/01/15 23:50:00
>>113
ホレ。

(define S (lambda (f) (lambda (g) (lambda (x) ((f x) (g x))))))
(define K (lambda (x) (lambda (y) x)))
(define I (lambda (x) x))

(define-macro (define-combinator name body)
`(define ,name
(lambda (arg)
(,body arg))))

(define define-combinator define)

(define-combinator B ((S (K S)) K))
(define-combinator C ((S((S(K((S(K S))K)))S))(K K)))
(define-combinator M ((S I) I))
(define-combinator L ((C B) M))

(define Y
(lambda (F)
((lambda (my-make-f)
(F (lambda (x) ((my-make-f my-make-f) x))))
(lambda (my-make-f)
(F (lambda (x) ((my-make-f my-make-f) x)))))))

次ページ

続きを表示

1を表示