#lang racket(define tolerance 0.00001);公差(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance) );clos...
分类：
其他好文 时间：
2015-03-29 10:40:43
阅读次数：
142
#lang racket;product doing the multiplation(define (product term a next b) (if (< b a) 1 (* (term a) (product term (next a) next b)) ...
分类：
其他好文 时间：
2015-03-28 18:39:00
阅读次数：
162
#lang racket(define (fast-multiplication a b n);a*n (cond ((= n 0) b);n==0 ((even? n) (fast-multiplication (double a) b ...
分类：
其他好文 时间：
2015-03-21 15:22:18
阅读次数：
159
通过Lambda表达式表示复合过程。 Code #lang racket(define(square x) (* x x));求和记法定义程序模式(define(sum term a next b) (if(> a b) 0 (+(term a) (sum term (next a) next...
分类：
其他好文 时间：
2015-01-23 20:01:20
阅读次数：
210
使用Scheme的对数迭代法：#lang racket;;N是偶数：b^n = (b^(n/2))^2(define (square x) (* x x));定义乘积函数(define (fast-expt b n);筛选 (expt-iter b n 1))(define (expt-iter ....
分类：
其他好文 时间：
2015-01-20 19:52:28
阅读次数：
130
程序由Scheme语言编写，待会上别的语言实现。#lang racket;斐波那契对数法;筛选(define (fib n) (fib-iter 1 0 0 1 n)) (define (square x) (* x x)) (define (fib-iter a b p q count) (...
分类：
编程语言 时间：
2015-01-19 22:17:58
阅读次数：
201
exercise_2.3.scm #lang?racket/base
;;;?[HTDP]?<2.3?字处理问题>?<习题?2.3.1>
;;;?<合约>?tax?:?(number?number?number)->number
;;;?<用途>?计算所得税
;;;?<合约>?netpay?:?(number?num...
分类：
其他好文 时间：
2015-01-06 23:20:13
阅读次数：
464
exercise_2.2.1.scm #lang?racket/base
;;;?[HTDP]?<2.2?变量和程序>?<习题?2.2.1>
;;;?<合约>?Fahrenheit->Celeiue?:?number->number
;;;?<用途>?图形化的操作将华氏温度转化为摄氏温度
(require?...
分类：
其他好文 时间：
2014-12-30 12:03:59
阅读次数：
205
??
题目要求给出的函数需要完成以下三件事：
写一个函数，接受三个数作为参数判断三个数中较大的两个数计算较大两个数的平方和(两个数的平方之和)
我们从后往前，一步步完成这三个任务。
CSDN没有Lisp。用Python的标记了
#lang racket
;;SICP 1.3
;;try 1
(define (square x)(* x x))
(define (sum x y)(+...
分类：
其他好文 时间：
2014-12-25 22:07:19
阅读次数：
177
快速排序是一个从程序设计基础开始，到数据结构，到算法都会提到的经典例子，常见的做法是取开头元素作为主元，将不大于它的元素放在前面，比它大的放在后面，而前面和后面再次递归调用。在scheme当中是这个样子的： 1 #lang racket 2 (define (smaller x l) 3 ...
分类：
编程语言 时间：
2014-12-14 11:49:56
阅读次数：
231
