Chinaunix首页 | 论坛 | 博客
  • 博客访问: 222337
  • 博文数量: 136
  • 博客积分: 2919
  • 博客等级: 少校
  • 技术积分: 1299
  • 用 户 组: 普通用户
  • 注册时间: 2011-03-11 09:08
文章分类

全部博文(136)

文章存档

2013年(1)

2011年(135)

我的朋友

分类: LINUX

2011-12-05 08:48:22

  1. ;; mht created on Nov 8, 2011

  2. ;; sum-coins : number number number number -> number
  3. ;; to compute the value of a bag of coins
  4. (define (sum-coins n-1 n-5 n-10 n-25)
  5.   (/
  6.    (+ (* 1 n-1) (* 5 n-5) (* 10 n-10) (* 25 n-25))
  7.    100))

  8. (sum-coins 100 20 10 4)
阅读(359) | 评论(0) | 转发(0) |
0

上一篇:exam2.3.1

下一篇:exam2.3.3

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