add new

green-93-nope · May 21, 2017 · 59241b6 · 59241b6
1 parent 0755b59
commit 59241b6
Show file tree

Hide file tree

Showing 170 changed files with 11,051 additions and 30 deletions.
diff --git a/#371.scm# b/#371.scm#
diff --git a/116.scm b/116.scm
diff --git a/129.scm b/129.scm
diff --git a/130.scm b/130.scm
diff --git a/131.scm b/131.scm
diff --git a/132.scm b/132.scm
diff --git a/133.scm b/133.scm
diff --git a/217.scm b/217.scm
diff --git a/218.scm b/218.scm
diff --git a/220.scm b/220.scm
diff --git a/221.scm b/221.scm
diff --git a/223.scm b/223.scm
diff --git a/224.scm b/224.scm
diff --git a/227.scm b/227.scm
diff --git a/228.scm b/228.scm
diff --git a/229.scm b/229.scm
diff --git a/230.scm b/230.scm
diff --git a/232.scm b/232.scm
diff --git a/233.scm b/233.scm
diff --git a/234.scm b/234.scm
diff --git a/235.scm b/235.scm
diff --git a/236.scm b/236.scm
diff --git a/237.scm b/237.scm
diff --git a/238.scm b/238.scm
diff --git a/239.scm b/239.scm
diff --git a/240.scm b/240.scm
diff --git a/241.scm b/241.scm
diff --git a/242.scm b/242.scm
diff --git a/256.scm b/256.scm
diff --git a/257.scm b/257.scm
diff --git a/258.scm b/258.scm
diff --git a/259.scm b/259.scm
diff --git a/260.scm b/260.scm
diff --git a/261.scm b/261.scm
diff --git a/262.scm b/262.scm
diff --git a/263.scm b/263.scm
diff --git a/264.scm b/264.scm
diff --git a/265.scm b/265.scm
diff --git a/266.scm b/266.scm
diff --git a/267.scm b/267.scm
diff --git a/268.scm b/268.scm
diff --git a/269.scm b/269.scm
diff --git a/270.scm b/270.scm
diff --git a/273.scm b/273.scm
diff --git a/275.scm b/275.scm
diff --git a/277.scm b/277.scm
diff --git a/278.scm b/278.scm
diff --git a/279.scm b/279.scm
diff --git a/280.scm b/280.scm
diff --git a/281.scm b/281.scm
diff --git a/282.scm b/282.scm
diff --git a/31.scm b/31.scm
diff --git a/312.scm b/312.scm
diff --git a/313.scm b/313.scm
diff --git a/314.scm b/314.scm
diff --git a/316.scm b/316.scm
diff --git a/317.scm b/317.scm
diff --git a/318.scm b/318.scm
diff --git a/319.scm b/319.scm
diff --git a/32.scm b/32.scm
diff --git a/321.scm b/321.scm
diff --git a/322.scm b/322.scm
diff --git a/323.scm b/323.scm
diff --git a/324.scm b/324.scm
diff --git a/325.scm b/325.scm
diff --git a/326.scm b/326.scm
diff --git a/326_compare.scm b/326_compare.scm
diff --git a/327.scm b/327.scm
diff --git a/328.scm b/328.scm
diff --git a/329.scm b/329.scm
diff --git a/33.scm b/33.scm
diff --git a/330.scm b/330.scm
diff --git a/333.scm b/333.scm
diff --git a/334.scm b/334.scm
diff --git a/337.scm b/337.scm
diff --git a/34.scm b/34.scm
diff --git a/347.scm b/347.scm
diff --git a/348.scm b/348.scm
diff --git a/35.scm b/35.scm
diff --git a/350.scm b/350.scm
diff --git a/351.scm b/351.scm
diff --git a/352.scm b/352.scm
diff --git a/353.scm b/353.scm
diff --git a/354.scm b/354.scm
diff --git a/355.scm b/355.scm
diff --git a/356.scm b/356.scm
diff --git a/358.scm b/358.scm
diff --git a/359.scm b/359.scm
diff --git a/36.scm b/36.scm
diff --git a/360.scm b/360.scm
diff --git a/361.scm b/361.scm
diff --git a/362.scm b/362.scm
diff --git a/363.scm b/363.scm
diff --git a/364.scm b/364.scm
diff --git a/365.scm b/365.scm
diff --git a/369.scm b/369.scm
diff --git a/37.scm b/37.scm
diff --git a/370.scm b/370.scm
@@ -20,6  20,7 @@
                                                      (stream-cdr s2)
                                                      weight)))))))
 
 ;; i <= j, and assume the first member of s1 and s2 is equal
 (define (weighted-pairs s1 s2 weight)
   (cons-stream (list (stream-car s1) (stream-car s2))
                (merge-weighted (stream-map (lambda (x) (list (stream-car s1) x))

diff --git a/371.scm b/371.scm
@@ -1,3  1,7 @@
 (load "354.scm")
 (load "370.scm")
 (load "ch351.scm")
 
 (define (weight-sr pair)
   (  (cube (car pair))
      (cube (cadr pair))))
@@ -26,3  30,7 @@
                    #f))))
     (stream-filter equal-stream-formal
                    stream-pairs-cube)))
 
 (define Ramanujan
   (stream-map (lambda (pair) (weight-sr pair))
               pairs-sr))
diff --git a/372.scm b/372.scm
@@ -0,0  1,18 @@
 (load "354.scm")
 (load "370.scm")
 (load "ch351.scm")
 
 (define (square x) (* x x))
 (define (sum-square x) (  (square (car x)) (square (cadr x))))
 (define (squaresn s)
   (define (stream-cadr s) (stream-car (stream-cdr s)))
   (define (stream-caddr s) (stream-cadr (stream-cdr s)))
   (let ((scar (stream-car s))
         (scadr (stream-cadr s))
         (scaddr (stream-caddr s)))
     (if (= (sum-square scar) (sum-square scadr) (sum-square scaddr))
         (cons-stream (list (sum-square scar) scar scadr scaddr)
                      (squaresn (stream-cdr (stream-cdr (stream-cdr s)))))
         (squaresn (stream-cdr s)))))
 (define square-numbers
   (squaresn (weighted-pairs integers integers sum-square)))
diff --git a/373.scm b/373.scm
@@ -1,4  1,4 @@
-(define (integral integrand initial-value dt)
 o(define (integral integrand initial-value dt)
   (define int
     (cons-stream initial-value
                  (add-streams (scale-stream integrand dt)

diff --git a/38.scm b/38.scm
diff --git a/41.scm b/41.scm
@@ -0,0  1,13 @@
 (define (list-of-values exps env)
   (if (no-operands? exps)
       '()
       (let ((first (eval (first-operand exps) env)))
         (cons first
               (list-of-values (rest-operands exps) env)))))
 
 (define (list-of-values exps env)
   (if (no-operands? exps)
       '()
       (let ((rest (list-of-values (rest-operands exps) env)))
         (cons (eval (first-operand exps) env)
               rest))))
diff --git a/411.scm b/411.scm
@@ -0,0  1,7 @@
 (define (make-frame variables values)
   (map cons variables values))
 (define (frame-variables frame) (map car frame))
 (define (frame-values frame) (map cdr frame))
 (define (add-binding-to-frame! var val frame)
   (cons (cons var val)
         frame))
diff --git a/412.scm b/412.scm
@@ -0,0  1,32 @@
 (define (lookup-variable-in-environment var env)
   (if (eq? env the-empty-environment)
       false
       (let ((result (lookup-variable-in-frame var (first-frame env))))
         (if (true? result)
             result
             (lookup-variable-in-frame var (enclosing-environment env))))))
 
 (define (lookup-variable-in-frame var frame)
   (define (scan-in-frame vars vals)
     (cond ((null? vars) false)
           ((eq? var (car vars)) vals)
           (else (scan-in-frame (cdr vars) (cdr vals)))))
   (scan-in-frame (frame-variables frame) (frame-values frame)))
 
 (define (lookup-variable-value var env)
   (let ((pos (lookup-variable-in-environment var env)))
     (if pos
         (car pos)
         (error "Unbound variable" var))))
 (define (set-variable-value! var val env)
   (let ((pos (lookup-variable-in-environment var env)))
     (if pos
         (set-car! vals val)
         (error "Unbound variable --SET!" var))))
 
 (define (define-variable! var val env)
   (let ((first (first-frame env))
         (pos (lookup-variable-in-frame var first)))
     (if pos
         (set-car! vals val)
         (add-binding-to-frame! var val first))))