David Gao kouddy

kouddy / SICP 1.3

Created February 14, 2015 18:08

	(define (square x)
	(* x x))

	(define (sum-of-squares x y)
	(+ (square x) (square y)))

	(define (sum-of-highest-squares x y z)
	(cond ((< x y z) (sum-of-squares y z))
	((< y z x) (sum-of-squares z x))
	((< z x y) (sum-of-squares x y))))

kouddy / SICP 1.4

Last active August 29, 2015 14:15

	;;;Re-written version of the code
	(define (a-plus-abs-b a b)
	(if (> b 0)
	(+ a b)
	(- a b)))

kouddy / SICP 1.5

Created February 14, 2015 21:05

kouddy / SICP 1.7

Last active August 29, 2015 14:15

	(define (square x) (* x x))

	(define (average x y)
	(/ (+ x y) 2))

	(define (improve guess x)
	(average guess (/ x guess)))

	;;; Newly implemented guess
	;;; Good enough when \|guess - improved-guess\|/guess < 0.001 (0.1%)

kouddy / SICP 1.8

Created February 20, 2015 05:03

	(define (square x) (* x x))

	(define (improve guess x)
	(/ (+ (/ x (square guess)) (* 2 guess)) 3))

	(define (good-enough? guess improved-guess x)
	(< (/ (abs (- guess improved-guess)) guess) 0.001))

	(define (cubic-root-iter guess x)
	(if (good-enough? guess (improve guess x) x)

kouddy / SICP 1.9

Last active August 29, 2015 14:15

kouddy / SICP 1.10.part 1

Last active August 29, 2015 14:15

Answer for SICP exercise 1.10 Part 1

kouddy / SICP 1.10.part2

Created February 21, 2015 17:38

	;;;(A 2 4)
	;;; We know that (A 1 n) = 2^n, so steps to evaluate (A 1 n) are omitted here.
	(A 1 (A 2 3))
	(A 1 (A 1 (A 2 2)))
	(A 1 (A 1 (A 1 (A 2 1))))
	(A 1 (A 1 (A 1 2)))
	...
	(A 1 (A 1 4))
	...
	(A 1 16)

kouddy / SICP 1.10.part3

Created February 21, 2015 19:18

	;;;(A 3 3)
	;;; We know that (A 1 n) = 2^n, so steps to evaluate (A 1 n) are omitted here.
	;;; We also know that (A 2 n) = 2^2^...n times, so steps to evaluate (A 2 n) are omitted here.
	(A 3 3)
	(A 2 (A 3 2))
	(A 2 (A 2 (A 3 1)))
	(A 2 (A 2 2))
	...
	(A 2 4)
	...

kouddy / SICP 1.11.part1

Last active August 29, 2015 14:15