Language: Scheme Author: Tanaka Tomoyuki(tanaka@ucdavis.edu) Note: (Chez Scheme Version 5.0b) (call/cc (lambda (c) (c ((lambda (c) `(call/cc (lambda (c) (c (,c ',c))))) '(lambda (c) `(call/cc (lambda (c) (c (,c ',c))))))))) Author: Tanaka Tomoyuki(tanaka@ucdavis.edu) Note: (Chez Scheme Version 5.0b) (call/cc (lambda (c) (call/cc (lambda (cc) (c ((lambda (c) `(call/cc (lambda (c) (call/cc (lambda (cc) (c (,c ',c))))))) '(lambda (c) `(call/cc (lambda (c) (call/cc (lambda (cc) (c (,c ',c))))))))))))) Author: Tanaka Tomoyuki(tanaka@ucdavis.edu) Note: (Chez Scheme Version 5.0b) ((lambda (q qq) ((lambda (x) `((lambda (q qq) ,(q x)) . ,(q qq))) '(lambda (x) `((lambda (q qq) ,(q x)) . ,(q qq))))) (lambda (q) `(,q ',q)) '(lambda (q) `(,q ',q))) Author: Tanaka Tomoyuki(tanaka@ucdavis.edu) Note: (Chez Scheme Version 5.0b) ((lambda (c) (if (procedure? c) (c 0) ((lambda (c) `((lambda (c) (if (procedure? c) (c 0) (,c ',c))) (call/cc call/cc))) '(lambda (c) `((lambda (c) (if (procedure? c) (c 0) (,c ',c))) (call/cc call/cc)))))) (call/cc call/cc)) Author: Tanaka Tomoyuki(tanaka@ucdavis.edu) Note: (Chez Scheme Version 5.0b) ((lambda (c) (if (procedure? c) (c '`((lambda (c) (if (procedure? c) (c ',c) ,c)) (call/cc call/cc))) `((lambda (c) (if (procedure? c) (c ',c) ,c)) (call/cc call/cc)))) (call/cc call/cc)) Author: Tanaka Tomoyuki ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x)) Author: Tanaka Tomoyuki ((lambda (q) ((lambda (x) `((lambda (q) ,((eval q) x)) ',q)) '(lambda (x) `((lambda (q) ,((eval q) x)) ',q)))) '(lambda (x) `(,x ',x))) Author: Moshe Zadka (moshez@math.huji.ac.il) Note: guile (A GNU implementation of Scheme) #!/usr/bin/guile \ -e main -s !# (define (main args) (display program) (write program) (display #\)) (newline)) (define program "#!/usr/bin/guile \\ -e main -s !# (define (main args) (display program) (write program) (display #\\)) (newline)) (define program ") Author: Moshe Zadka (moshez@math.huji.ac.il) ((lambda (p) (write (list p (list (quote quote) p)))) (quote (lambda (p) (write (list p (list (quote quote) p)))))) Author: Tanaka Tomoyuki Note: Palindromic in nature (look carefully I missied it at first) ((lambda (x) `(,(reverse x) ',x)) '(`(,(reverse x) ',x) (x) lambda))