Name: ALLF 2015-10-27 20:49
ABSTRACT LAMBDA FUNCTION FACTORY
(define abstract-lambda-function-factory
(lambda (x)
(let* ((function 0)
(factory (lambda () (begin (set! function x) ((lambda () function)))))
(abstract (lambda () ((lambda() (factory) (lambda () (force ((lambda () (delay function))))))))))
((lambda () (abstract))))))
(((abstract-lambda-function-factory
(lambda () (((abstract-lambda-function-factory
(lambda () (map
(lambda (x)
(lambda () (x)))
(map (lambda (y)
(display y)) (cons (quote H) (cons (quote A) (cons (quote X) (cons " " (cons (quote M) (cons (quote Y) (cons " " (cons (quote A) (cons (quote N) (cons (quote U) (cons (quote S) (quote ()))))))))))))))))))))))