SICP 习题2.19 重写count-change 过程

最新推荐文章于 2022-03-22 14:50:44 发布

_NMfloat_

最新推荐文章于 2022-03-22 14:50:44 发布

阅读量1.1k

点赞数 1

分类专栏： SICP

本文链接：https://blog.csdn.net/NMfloat/article/details/51648310

版权

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文展示了一个使用Scheme语言定义的递归过程来计算给定金额下特定硬币组合的数量的方法。通过对比美国和英国硬币系统的示例，演示了如何通过程序实现这一计算。

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

uk-coins的运行时间较长

(define (cc amount coin-values)
  (cond ((= amount 0) 1)
    ((or (< amount 0) (no-more? coin-values)) 0)
    (else
      (+ (cc amount (except-first-denomination coin-values))
         (cc (- amount (first-denomination coin-values)) coin-values)))))

(define no-more? null?)
(define except-first-denomination cdr)
(define first-denomination car)

(define us-coins '(50 25 10 5 1))
(define uk-coins '(100 50 20 10 5 2 1 0.5))
(newline)
(display (cc 100 us-coins))
(newline)
(display (cc 100 uk-coins))