yakreved’s gists

yakreved / sicp_2_96

Created September 1, 2013 18:21

sicp 2.96

	;; ================error=================================================
	(define (error . l)
	(display l)
	)
	;; ======================================================================
	(define (install-polynomial-package)
	;; internal procedures
	;; representation of poly
	(define (tag p) (attach-tag 'polynomial p))

yakreved / sicp_2_94_2_95

Created September 1, 2013 18:07

sicp 2.94 2.95

	;; ================error=================================================
	(define (error . l)
	(display l)
	)
	;; ======================================================================
	(define (install-polynomial-package)
	;; internal procedures
	;; representation of poly
	(define (tag p) (attach-tag 'polynomial p))

yakreved / sicp_2_93

Created September 1, 2013 16:54

sicp 2.93

	;; ================error=================================================
	(define (error . l)
	(display l)
	)
	;; ======================================================================
	(define (install-polynomial-package)
	;; internal procedures
	;; representation of poly
	(define (tag p) (attach-tag 'polynomial p))

yakreved / sicp_2_91

Created September 1, 2013 16:36

sicp 2.91 div-poly

	;; ================error=================================================
	(define (error . l) (display l))
	;; ======================================================================
	(define (install-polynomial-package)
	;; internal procedures
	;; representation of poly
	(define (tag p) (attach-tag 'polynomial p))

	(define (make-poly variable term-list)
	(cons variable term-list))

yakreved / sicp_2_87_2_88

Created September 1, 2013 16:17

sicp 2.87 2.88


	;; ======================================================================
	(define (install-polynomial-package)
	;; internal procedures
	;; representation of poly
	(define (tag p) (attach-tag 'polynomial p))

	(define (make-poly variable term-list)
	(cons variable term-list))
	(define (variable p) (car p))

yakreved / sicp_2_86

Created September 1, 2013 14:13

sicp 2.86

	;-------------put-get-----------------------------------------
	(define global-array '())

	(define (make-entry k v) (list k v))
	(define (key entry) (car entry))
	(define (value entry) (cadr entry))

	(define (put op type item)
	(define (put-helper k array)
	(cond ((null? array) (list(make-entry k item)))

yakreved / sicp_2_83_2_84

Created August 31, 2013 02:56

sicp 2.83 2.84

	;-------------put-get-----------------------------------------
	(define global-array '())

	(define (make-entry k v) (list k v))
	(define (key entry) (car entry))
	(define (value entry) (cadr entry))

	(define (put op type item)
	(define (put-helper k array)
	(cond ((null? array) (list(make-entry k item)))

yakreved / sicp_2_81

Created August 31, 2013 01:45

sicp 2.81 coercion

	;-------------put-get-----------------------------------------
	(define global-array '())

	(define (make-entry k v) (list k v))
	(define (key entry) (car entry))
	(define (value entry) (cadr entry))

	(define (put op type item)
	(define (put-helper k array)
	(cond ((null? array) (list(make-entry k item)))

yakreved / sicp_2_79_2_80

Created August 31, 2013 00:37

sicp 2.79 2.80

	;-------------put-get-----------------------------------------
	(define global-array '())

	(define (make-entry k v) (list k v))
	(define (key entry) (car entry))
	(define (value entry) (cadr entry))

	(define (put op type item)
	(define (put-helper k array)
	(cond ((null? array) (list(make-entry k item)))

yakreved / sicp_2_78

Created August 30, 2013 23:46

sicp 2.78

	;-------------put-get-----------------------------------------
	(define global-array '())

	(define (make-entry k v) (list k v))
	(define (key entry) (car entry))
	(define (value entry) (cadr entry))

	(define (put op type item)
	(define (put-helper k array)
	(cond ((null? array) (list(make-entry k item)))

Andrey yakreved