Scheme函數式編程小試

(define Y
  (lambda (F)
    (let ((W (lambda (x) 
               (F (lambda arg (apply (x x) arg))))))
      (W W))))
(define F1
  (lambda (func-arg)
    (lambda (n)
      (if (zero? n)
          "_/ \\"
          (string-append "_/ \\" (func-arg (- n 1)))))))
(define F2
  (lambda (func-arg)
    (lambda (n)
      (if (zero? n)
          " \\_/"
          (string-append " \\_/" (func-arg (- n 1)))))))
(define F
  (lambda (func-arg)
    (lambda (n)
	  (display ((Y F1) #x20))
	  (newline)
	  (display ((Y F2) #x20))
	  (newline)
      (if (zero? n)
          ""
          (func-arg (- n 1))))))

((Y F) #x40)