Scheme函数式编程小试

Keynode

于 2012-10-01 09:39:20 发布

阅读量807

点赞数

CC 4.0 BY-SA版权

分类专栏：算法文章标签： scheme 编程 lambda newline

本文链接：https://blog.youkuaiyun.com/Keynode/article/details/8034894

算法专栏收录该内容

5 篇文章

订阅专栏

本文通过定义两个简单的递归函数F1和F2，展示了如何使用Y组合子实现自调用的过程。F1和F2分别生成斜杠和反斜杠的字符串，并通过递归方式重复此过程。通过Y组合子的应用，避免了直接使用递归定义，展示了函数式编程中解决递归的一种方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(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)