Chinaunix首页 | 论坛 | 博客
  • 博客访问: 31192
  • 博文数量: 8
  • 博客积分: 165
  • 博客等级: 入伍新兵
  • 技术积分: 100
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-17 05:05
文章分类

全部博文(8)

文章存档

2013年(2)

2012年(6)

我的朋友

分类: LINUX

2012-10-08 14:55:09

做n遍某事,尾递归替代循环。


点击(此处)折叠或打开

  1. (define (f x)
  2.   (cond
  3.     ((= x 1) e1 e2 ...)
  4.     (else e1 e2 ... (f (- x 1)))))

阅读(774) | 评论(0) | 转发(0) |
0

上一篇:Scheme 初学(2)

下一篇:Scheme 初学(4)

给主人留下些什么吧!~~