zhangle

Ackermann函数的定义见图。 详细请参考[url]http://en.wikipedia.org/wiki/Ackermann_function[/url](A 1 n) = 2^n (A 2 n) = 2^(2^(2^(....^(2^2)))) (共n个2）用scheme语音定义为[code="java"](define (A x y) (cond ((= ...

2.21[code="java"](define nil '())(define (square x) (* x x))(define (square-list items) (if (null? items) nil (cons (square (car items)) (square-list (cdr items)))))...

2.17[code="java"](define (my-last-pair l) (if (null? (cdr l)) (car l) (last-pair (cdr l))))(my-last-pair (list 23 72 149 34))[/code]2.18[code="java"](define (my-reve...

2.12[code="java"](define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upper-bound y))))(define (sub-interval x y) (add-inte...

2.6[code="java"](define zero (lambda (f) (lambda (x) x)))(define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x)))))((zero 4) 3)(add-1 5 1)[/code]2.7[code="java"](define (add-interva...

2.1[code="java"](define (make-rat n d) (let ((g (gcd n d))) (cond ((and (< n 0) (> d 0)) (cons (/ n g) (/ d g))) ((and (> n 0) (> d 0)) (cons (/ n g) (/ d g))) (else (c...

1.42[code="java"](define (my-compose f g) (lambda (x) (f (g x))))(define (inc x) (+ x 1))(define (square x) (* x x))((my-compose square inc) 6)[/code]1.43[code="java"...

1.38[code="java"](define (cont-frac n d i k) (if (= k 1) (/ (n 1) (d 1)) (/ (n i) (+ (d i) (cont-frac n d (+ i 1) (- k 1))))))(define (cont-frac-r n d k) (define (frac i) ...

1.34[code="java"](define (square n) (* n n))(define (f g) (g 2))(f square)(f (lambda (z) (* z (+ z 1))))(f f)[/code]1.35[code="java"](define tolerance 0.00001)(define...

1.29[code="java"](define (inc n) (+ n 1))(define (cube a) (* a a a))(define (sum term a next b) (if (> a b) 0 (+ (term a) (sum term (next a) next b))))(define ...

1.21[code="java"](define (smallest-divisor n) (find-divisor n 2))(define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-diviso...

1.10[code="java"](define (A x y) (cond ((= y 0) 0) ((= x 0) (* 2 y)) ((= y 1) 2) (else (A (- x 1) (A x (- y 1))))))(define (f n) (A 0 n))(defi...

2.26[code="java"](define x (list 1 2 3))(define y (list 4 5 6))(append x y)(cons x y)(list x y)(define z (list x y))(car z)(cdr z)[/code]2.27[code="java"](define nil '(...