aa_niaofang的专栏

原创 3.67

;3.67(define (pairs s t) (cons-stream (list (stream-car s) (stream-car t)) (interleaves (interleaves (stream-map (lambda (x) (list (stream-car s) x)) (stream-cdr t)) (str

原创 3.67

;3.67(define (pairs s t) (interleave (stream-map (lambda (x) (list (stream-car s) x) t)) (pairs (stream-cdr s) t)))这里给出 一个 高人的解释 豁然开朗Exercise 3.68. 答案

原创 3.65

;3.65(define (ln2x n) (cons-stream (/ 1.0 n) (stream-map - (ln2x (+ 1 n))))) (define ln2-stream (scale-stream (patial (ln2x 1)) 4))(define (euler-transfor

原创 3.64

;3.64(define (stream-limit x tolerance) (let ((first-car (stream-car x)) (second-car (stream-car (stream-cdr x)))) (if (< (abs (- first-car second-car)) tolerance) second-c

原创 3.62

;3.62(define (div-series s d) (if (= 0 (stream-car d)) 'ERROR-DIVIDED-ZERO (mul-series s (1-/-s d))));正切函数的级数(define tanch-series (div-series sine-series cosine-series))

原创 3.61

;3.61(define (1-/-s s) (cons-stream 1 (stream-map - (mul-series (stream-cdr s) (1-/-s s)))))

原创 3.60

;3.60(define (mul-series s1 s2) (cons-stream (* (stream-car s1) (stream-car s2)) (add-streams (mul-series s1 (stream-cdr s2)) (mul-

原创 3.59

;3.59;a(define (integrate-series a) (mul-streams (stream-map (lambda (x) (/ 1 x)) integers) a));b(define cosine-s

原创 3.59

;3.59;a(define (integrate-series a) (mul-streams (stream-map (lambda (x) (/ 1 x)) integers) a));b(define cosine-series (cons-stream 1 (stream-map - (integrate-series sine-series))))(define sine-series

原创 3.56

;3.56(define s (cons-stream 1 (merge (scale-stream s 2) (merge (scale-stream s 3) (scale-stream s 5)))))

原创 3.55

;3.55(define (patial s) (cons-stream (stream-car s) (stream-map + (patial s) (stream-cdr s))))

原创 3.54

;3.54(define (mul-streams a b) (cons-stream (* (stream-car a) (stream-car b)) (mul-streams (stream-cdr a) (stream-cdr b))))(def

原创 3.6

;3.6(define (new-rand x) (define seed 0) (cond ((eq? x 'generate) (rand-update seed)) ((eq? x 'reset) (lambda (y) (set! seed y))) (else (display 'ERROR))))

原创 3.5

;3.5(define (estimate-pi trails) (sqrt (/ 6 (monte-carlo trails experiment))))(define (random-in-range low high) (let ((range (- high low))) (+ low (random (+ 1 range)))));sicp 中为说明 r

原创 3.1-3.4

;CHAPTER 3;3.1(define (make-accumulator x) (lambda (y) (begin (set! x (+ x y)) x)))(define A (make-accumulator 5));3.2(define (make-monitored f) (define (mm

原创 2.69

;2.69(define (generate-huffman-tree pairs) (successive-merge (make-leaf-set pairs)))(define (make-leaf-set pairs) (if (null? pairs) '() (let ((pair (car pairs))) (ad

原创 2.64

原创 2.59-2.66

;2.59 union-set;element-of-set?(define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set)))))(define (union-set

原创 2.58

;2.56求导(define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var)

原创 2.56

;2.56求导(define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var)

原创 2.20

;2.20(define (check i) (if (= 0 (remainder i 2)) 0 1))(define (same-parity . w) (define flag (check (car w))) (define (iter i items) (if (= i (length w)) (my-reverse

原创 2.30-2.42

;2.30(define (square-tree tree) (cond ((null? tree) '()) ((not (pair? tree)) (* tree tree)) (else (cons (square-tree (car tree)) (square-tree (cdr tree)))))

原创 2.17-2.18

;2.17(define (last-pair l)  (cond ((null? l) 0)        ((null? (cdr l)) l)        (else (last-pair (cdr l)))))      ;2.18;reverse items(define (my-reverse iterms)    (define (iter

原创 2.6

;2.6;zero(define zero (lambda (f) (lambda (x) x)));add 1 operation(define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x)))));one(define one (lambda (f) (lambda (x) (f x))));two

原创 2.2

;2.2;构建线段(define (make-segment start end) (cons start end));构建点(define (make-point x y) (cons x y))(define (x-point p) (car p))(define (y-point p) (cdr p));获得线段的首尾端

原创 2.1

;构建有理数(define (make-rat n d) (let ((g (gcd (abs n) (abs d)))) (if (< (* n d) 0) (cons (- 0 (abs (/ n g))) (abs (/ d g))) (cons (abs (/ n g)) (abs (/ d g))))));取得分子(de

原创 2.1

;构建有理数(define (make-rat n d) (let ((g (gcd (abs n) (abs d)))) (if (< (* n d) 0) (cons (- 0 (abs (/ n g))) (abs (/ d g))) (cons (abs (/ n g)) (abs (/ d g))))));取得分子(define (numer x) (car x));取得分母(defin

原创 拆分数字

<br />主要是要求限制   <br />a. 全部codes 在 main ()<br />b. 不能用2D-ARRAY   <br />c. 不能用recursion<br />老师要求我们用 (brute force 的笨方法来做 就是用nested loop）<br />=======<br />(我不是想你们帮我做作业，， 但我真的想不到 不用recursion 不用2d-array 要怎么做。。。）<br /><br />有人会做不？<br /> 要求如下：<br /><br />Create

原创 马的走法

<br />在一个MXN的棋盘上，马能够回到起始位置的不同走法，走过的位置不能重复。<br /> <br />算法：回溯法#include <stdio.h> #include <stdlib.h> int row,col,count=0; void horseWalking(int **map,int startx,int starty,int i,int j); void main() { int i,j,startx,starty; print

原创 回溯法------王伯买鱼

<br />/*题目描述：(题目也太长了 废话太多了 抄的累人呀) 王伯退休后开始养鱼。他一早起来就赶去动物公园，发现这个世界的鱼真不少，五光十色、色彩斑斓，大的、小的什么都有。这些鱼实在是太美了，买的人越来越多，湖里的鱼越来越少。没有美丽的鱼，哪里有美丽的湖(这个逻辑。。？)？于是动物园不得不规定，对于每种鱼，每个人最多只能买一条。并且有些鱼是不能一起买的，因为他们之间会互相争斗吞食。 王伯想买尽可能多的鱼，但很可惜，他的资金有限。他冥思苦想、不知如何是好。请编写一

原创 回溯法求迷宫问题

<br />csdn如何修改自己的文章？<br />为什么我每次修改都不成功，索性将原来的文章给删除了！<br /> <br />/*@created by Hzj 2011-4-8 14:43:35*/#include <stdio.h>#include <stdlib.h>int count=0;/*记录总的走法*/void find_path(char **,char **,int m,int n,int i,int j,int ex);void main(){ i

原创 回溯法实例----著名医生的药方

<br />/*问题描述：著名医生的药方 很久以前，有一个医术非常高明的医生，曾经医治好了很多怪病。但是，他开出的药方的字迹却是十分难以辨认，只有他自己和他自己的药剂师才能读懂他的药方。有时候甚至是两个不同的药方的同一种药都是难以辨认出的。 不过，这个医生开药方的时候，习惯有一个固定的标准模式。他有一个药材库，里面共有n种药，出了这n种药，他不会使用任何其他的药，对于每一种药，都有一个关于他的后续药的集合，只有这种药的后续药才能够直接出现在这种药的下一个位置。当然，任何一

原创 一个贪婪算法的应用

<br />计算机网络要求网络中的计算机被连接起来。本问题考虑一个“线性”的网络，在这一网络中计算机被连接到一起，并且除了首尾的两台计算机只分别连接着一台计算机外，其他任意一台计算机恰连接着两台计算机。图1中用黑点表示计算机，它们的位置用直角坐标表示（相对于一个在图中未画出的坐标系）。网络中连接的计算机之间的距离单位为英尺。由于很多原因。我们希望使用的电缆长度应尽可能地短，你的问题是去决定计算机应如何被连接以使你所用的电缆长度最短。在设计方案施工时，电缆将埋在地下，因此连接两台计算机所要用的电缆总长度等

原创 教室规划问题（top-down）动态规划

<br /> <br />#include <stdio.h>int dy(int *s,int *f,int,int);int m[13][13]={0};void main(){ int s[]={0,1,3,0,5,3,5,6,8,8,2,12/*,*/,15}; int f[]={0,4,5,6,7,8,9,10,11,12,13,14/**/,15}; printf("%d/n",dy(s,f,0,12));}int dy(int *s,int*f,int le