![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
scheme
ad4min
穿越旷野的风啊,慢些走,我用沉默告诉你,我醉了酒。漂向远方的云啊,慢些走,我用奔跑告诉你,我不回头。
展开
-
list 操作函数
scheme list pair原创 2017-01-08 22:37:29 · 324 阅读 · 0 评论 -
scheme递归和迭代的效率测试
递归和迭代的效率差很多原创 2016-10-21 17:20:52 · 784 阅读 · 0 评论 -
根据帕斯卡三角的一行求帕斯卡三角的下一行
根据帕斯卡三角的一行求帕斯卡三角的下一行(define (3-angle s) (define (item s) (cond ((= (length s) 1) s) (else (cons (+ (car s) (cadr s)) (item (cdr s)))) ) ) (cons 1 (item s))原创 2017-12-15 11:16:25 · 261 阅读 · 0 评论 -
求素数
素数定义是除了1以外,最小因子是自己的数。 针对这个定义,一个简单的判断n是否是素数算法:从2开始直到n-1的数如果都不能被n整除,那么n是素数。 此算法进一步简化为::从2开始直到小于等于n的平方根的数如果都不能被n整除,那么n是素数。 此判断依据是:假设a是n的因子,b=n/a,那么a*b=n,可以推论a和b不能都大于n的平方根。 所以一个数如果是素数,在小于等于这个数的平方根范围内必原创 2017-12-29 15:44:26 · 248 阅读 · 0 评论 -
一种抽象业务逻辑的方法
;计算整数的累加和 (define (sum-integers a b) (if (> a b) 0 (+ a (sum-integers (+ a 1) b)) ) ) ;计算整数的累加立方和 (define (sum-cubes a b) (if (> a b) 0 (+ (* a a a) (sum-c原创 2018-01-03 11:55:48 · 1853 阅读 · 0 评论